Private Sub Command1_Click()
   Call Test("eindhfahfheinhfkahs  ein", "ein")
End Sub
 
Private Sub Test(s As String, t As String)
   Dim i  As Integer
   i = 1
   Do
      i = InStr(i, s, t)
      If i > 0 Then
         List1.AddItem i
         i = i + 1
      End If
   Loop While i <> 0
End Sub