Option Explicit
Dim strArr() As String

Private Sub cmdLaden_Click()
  Dim strDatei As String
  Dim strZeile As String
  Dim TrZ As String
  ' Dim strArr() As String
  Dim ff 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 Boolean
  Dim i As Long
  Dim Gefunden As Boolean
 
  For i = 0 To UBound(strArr())
    If Suchtext = strArr(i) Then
      Gefunden = True
      Exit For
    End If
  Next i
  Suchen = Gefunden
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 = 0 To UBound(strArr()) ' Index außerhalb des gültigen Bereichs
      If Left$(strArr(i), 1) = Suchtext Then
        Text1.Text = Text1.Text & vbCrLf & Left$(strArr(i), 1)
      End If
    Next i
  End With
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de