Private Sub Text1_KeyPress(KeyAscii As Integer)
Text3.Text = KeyAscii
If KeyAscii = 32 Then
 
 
 Rem KeyAscii = 44    Leerzeichen abfangen und Komma ausgeben geht nur 
 Rem wie kann ich noch ein weiteres KeyAscii senden für das Leerzeichen ?????
 
Text1.Text = Text1.Text + ", "
 
 
End If
End Sub