Private Sub txtNachricht_KeyUp(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.KeyEventArgs) Handles txtNachricht.KeyUp
 
 
        If e.KeyData = 393285 Then
            Me.txtNachricht.Text = Microsoft.VisualBasic.Left( _
              Me.txtNachricht.Text, Me.txtNachricht.Text.Length - 1)
            Me.txtNachricht.AppendText("Euro")
        End If
 
        e.Handled = False
 
    End Sub