VB6 code to sort a list of items from a text box

I have a list of codes in my database for this client that tells me the clients diagnoses. The list has all diagnoses this person has had and might be something like this: 250.9 777.5 780.2 778.4 401.9 454.3 Next, I have a textbox that some or all these codes may appear. Here is an example of the data in text1: # SYNCOPE AND COLLAPSE (780.2): doing well. on aspirin. sugar getting controlled. Taking sugars and "has finally learned". Feeling watching diet correlates well with sugar values she has been getting. # HYPERTENSION NOS (401.9): bp stable to day. Cont off ccb due to junctional breadycardia and syncope. # Diabetes mellitus, II, with complications (250.9): seems to be controlled. She prefers not to change regimen at this time, and I concur. Had flu shot this year. As you can see, only some of the codes in the text are in the list, and they do not necessarily appear in the same order. What I need, is some simple code to allow me to figure out the order of codes as they appear in the textbox called txtASS. In other words, I want to be able to put: 780.2 into a new textbox called txtICD(0) 401.9 into txtICD(1) 250.9 INTO txtICD(2) see the deliverables section for more details... ## Deliverables and if there were more codes in the text, I would want to continue adding them (there is a max of 8 text boxes). In the end, I need my txtICD array to contain the codes IN THE ORDER IN WHICH THEY APPEAR IN THE TEXT BOX. I can get them listed, just not in the right order. In otherwords, my current code searches for the code in parenthesis and sees if it matches the list. If it does, it needs to save the code. The trouble I'm having is sorting the data into the correct txtICD Array order. This is what I've got so far... 'collect the diagnoses from the database for the client in question Dim cnnProb As [login to view URL] Dim sqlDx As String Dim rsProb As [login to view URL] Dim IsPresent As Integer sqlDx = "SELECT [login to view URL], [login to view URL] From ListPROBLEM Where patientID= " & lblPatID & "" Set cnnProb = New [login to view URL] [login to view URL] = g_ADOstrCnn [login to view URL] Set rsProb = GetRecordSet(cnnProb, sqlDx) With rsProb While Not [login to view URL] 'loop through all of the records returned in data1 'look for the number and include it if present If Not IsNull(!ProblemICD) Then ' txtselecteditem = !ProblemICD IsPresent = InStr(txtAss, !ProblemICD) If IsPresent > 0 Then 'add to problem text box and to hidden txticd array txtICDsDiscussed = txtICDsDiscussed & !ProblemName & " (" & !ProblemICD & ")" & vbCrLf txtICD(i) = !ProblemICD i = i + 1 'to avoid writing over this box next time around End If End If .MoveNext Wend End With Set cnnProb = Nothing Set rsProb = Nothing I'm looking for a quick solution, well commented, and inexpensive. I only will consider a demo that shows this in action, since I've been burned a number of times wasting time on folks who tell me how good they are, then can't do the job right. Thanks! 1) Complete and fully-functional working program(s) in executable form as well as complete source code of all work done. 2) Complete ownership and distribution copyrights to all work purchased. ## Platform windows