Option Explicit

Private Sub Form_Load()
  With List1
    .Clear
    .AddItem "Helmut"
    .AddItem "Alfons"
    .AddItem "Ralf"
    .AddItem "Bruno"
    .AddItem "Daniel"
    .AddItem "Heino"
    .AddItem "Hans"
    .AddItem "Alois"
    .AddItem "Roger"
    .AddItem "Roland"
    .AddItem "Anton"
    .AddItem "Hinrich"
  End With

  Text1.Text = ""
End Sub

Private Sub Text1_Change()
  Dim sSuchText As String
  Dim i As Integer

  List2.Clear

  sSuchText = Text1.Text
  If sSuchText = "" Then Exit Sub

  If Left(sSuchText, 1) = "*" Then
    sSuchText = Right(sSuchText, Len(sSuchText) - 1)
    For i = 0 To List1.ListCount - 1
      If InStr(1, List1.List(i), sSuchText, 1) <> 0 Then
        List2.AddItem List1.List(i)
      End If
    Next i

  Else
    For i = 0 To List1.ListCount - 1
      If UCase(sSuchText) = _
          UCase(Left(List1.List(i), Len(sSuchText))) Then
        List2.AddItem List1.List(i)
      End If
    Next i
  End If
End Sub