'Bisher dieser Umweg über die Zwischenablage...
Private Sub txtZeile_Change()
If CheckClipboard.Value = 1 Then
Clipboard.Clear
Clipboard.SetText txtZeile.Text
End If
End Sub
 
'So sollte dann der Aufruf erfolgen:
Private Sub txtZeile_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then 'Enter - Taste
'< --------------------------------------------- Hier Aufruf der Funktion...
End If
End Sub