Such "Maschine"

Private Sub CommandButton1_Click()
With UserForm1
.ListBox1.Clear
Sheets("CAT search").Activate
e = 0
For i = 2 To ActiveSheet.UsedRange.Rows.Count
If InStr(LCase(Cells(i, 1).Value), LCase(.TextBox1.Value)) > 0 Then
.ListBox1.AddItem Cells(i, 1).Value
e = e + 1
Else
End If
Next i
End With
End Sub

Private Sub CommandButton2_Click()
UserForm1.ListBox1.Clear
End Sub

Private Sub Image1_Click()
Unload Me
End Sub

Private Sub TextBox2_Change()
End Sub

Private Sub UserForm_Initialize()
With UserForm1.ListBox1
.ColumnCount = 1
.ColumnWidths = "40"
End With
End Sub

In TextBox1 soll ein Name eingebeben werden,
In ListBox1 sollen die Namensauswahl erscheinen (In Tabellenblatt Spalte A),
In TextBox2 sollte dann das dazugehörige Gebutsdatim erscheinen (zu finden in Tabellenblatt Spalte B)
Genau an der Textbox2 wo nach Selektion des Namens, das dazugehörige Geb.Dat. erscheinen soll, scheitert es bei mir.
Hat jemand eine Idee? Habe zur Verständlichkeit ein Beispiel upgeloaded:
https://www.herber.de/bbs/user/50356.xls
Vielen Dank & Grüsse,
Erik