Private Sub cmdLaden_Click()
    Dim strDatei As String
    Dim strZeile As String
    Dim zw As String
    Dim TrZ As String
    Dim strArr() As String
    Dim ff As Long
    Dim i As Long
    TrZ = "|"
    strDatei = App.Path & "\FM.txt"
    ff = FreeFile
 
    Open strDatei For Input As #ff
    Do While Not EOF(ff)
       Line Input #ff, strZeile
       strArr() = Split(strZeile, TrZ)
 
               Combo1.AddItem strArr(0)
       Loop
    Close #ff
End Sub
 
Function Suchen(Suchtext As String, strArr() As String) As Long
Dim i As Long
Dim Gefunden As Boolean
For i = 0 To UBound(strArr())
   If Suchtext = strArr(i) Then
      Gefunden = True
      Exit Function
   End If
   Next i
End Function
 
Private Sub Combo1_Click()
Dim strArr() As String
Dim i As Integer
Dim Suchtext As String
 
    With Combo1
    Suchtext = Left$(.Text, 1)
            For i = 1 To UBound(strArr()) 'Index außerhalb des gültigen Bereichs
            If Suchen(Suchtext, strArr()) = Left$(strArr(i), 1) Then
                    Text1.Text = Text1.Text & vbCrLf & Left$(strArr(i), 1)
            End If
            Next i
 
    End With
End Sub