Public Class Form1
 
    Private Sub Form1_KeyPress(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.KeyPressEventArgs) Handles Me.KeyPress
        MessageBox.Show("Sie haben gerade '" & e.KeyChar.ToString & "'gedrückt" _
        & vbCrLf & _
                        "Dies entspricht dem ASCII Code " & Asc( _
                        e.KeyChar.ToString))
    End Sub
End Class