Private Sub txt_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
If con = "1" Then
con = 2
id
Exit Sub
End If
 
check
If con = "1" Then Exit Sub
If erro = "1" Then
txt.SelText = vbCrLf & "Ready."
erro = 0
Else
txt.SelText = vbCrLf & "Ready."
End If
End If
End Sub

If var1 = "connect" Then
con = 1
Form1.txt.SelText = vbCrLf & vbCrLf & "Please Input ID:"
Exit Sub
End If

Public Sub id()
Dim Teile As Variant
Teile = Split(Form1.txt.Text, vbCrLf)
KeyMem = Teile(UBound(Teile))
var1 = LCase$(KeyMem)
Form1.txt.SelStart = Len(Form1.txt.Text)    <--- ich habs hier schon mit -1 bzw _
  -2 versucht aber ging nicht.
End Sub

Wer nicht fragt bleibt dumm, wer sich sch?mt zu fragen, sch?n dumm