Найти и напечатать порядковые номера задаваемых фамилий

Dim K As Integer, I As Integer, d As Integer, f As String
 
 
Private Sub Command1_Click()
Combo1.AddItem Combo1.Text
Combo1.Text = ""
Combo1.SetFocus
 
End Sub
 
Private Sub Command2_Click()
If Combo1.ListIndex >= 0 Then
Combo1.RemoveItem Combo1.ListIndex
Else
MsgBox "Oøèáêà! Âû íå âûáðàëè ýëåìåíò!"
End If
End Sub
 
Private Sub Command3_Click()
Combo1.Clear
Text1.Text = ""
Text2.Text = ""
End Sub
 
Private Sub Command4_Click()
For I = 0 To Combo1.ListCount - 1
d = Len(Combo1.List(I))
If InStr(Text1.Text, Mid(Combo1.List(I), d, 1)) <> 0 Then
 
End If
Next
End Sub
 
Private Sub Command5_Click()
End
 
End Sub
 
Private Sub Label3_Click()
 
End Sub

Private Sub Command4_Click()
    Dim i As Integer
    For i = 0 To Combo1.ListCount - 1
        If InStr(1, Text1.Text, Combo1.List(i)) <> 0 Then
              MsgBox i 'Вот он, Ваш индекс
        End If
    Next
End Sub

Private Sub Command4_Click()
    Dim i As Integer, s As String
    For i = 0 To Combo1.ListCount - 1
        If InStr(1, Text1.Text, Combo1.List(i)) <> 0 Then
             s = s & i & ","
        End If
    Next
    MsgBox s
End Sub