Private Sub TextBox2_KeyPress(ByVal KeyAscii As Integer)
   If KeyAscii = 13 Then
      ' Mach etwas
      TextBox2.Text = TextBox2.Text & ">> " & TextBox1.Text
 
'Strings verknüpft man mit dem &-Zeichen, nicht mit dem +-Zeichen.
     MsgBox "ok"
 
'Hier keine Klammern, nur wenn eine Funktion etwas zurückgibt, oder du machst 
' call MsgBox("ok")
  End If 
End Sub