Programmieren - alles kontrollieren 4.940 Themen, 20.676 Beiträge

hallo ich suche nach einem Code wo ich bestimmte Einträge aus einer Listbox in eine Textbox bekommen.
Die Listbox sieht so aus:

Eintrag1 - Eintrag2
Eintrag1 - Eintrag2

nun möchte ich aber nur
Eintrag1
un die Textbox übertragen, also alles was nach dem - kommt soll nicht mit kopiert werden. ich hab da zwar schon gegooglet und hab da auch einige Programmschnipsel gefunden, aber leider bin ich da nicht wirklich schlau rausgeworden.

Leider muss ich dazu sagen, das ich in VB6 blutiger Anfänger bin.

Private Sub Text1_KeyPress(KeyAscii As Integer)

If InStr("AaBbCcDdEeFfGgHhIiJjKkLlMmNnOoPpQqRrSsTtUuVvWwXxYyZzÄäÜüÖöß" & Chr$(8), Chr$(KeyAscii)) = 0 Then
KeyAscii = 0
End If
End If

End Sub

das hab ich probiert, doch leider gilt das nur für die Eingabe, nicht beim Adden in der Textbox

bei der listbox sieht es so aus:

Private Sub List1_Click()
Text1.Text = List1.List(List1.ListIndex)
End Sub

Bitte fangt nun nicht an zulachen, fals es ein einfach code ist, für hilfe wäre ich echt dankbar