Private Sub txtResult_KeyPress(ByVal sender As Object, ByVal e As _
  System.Windows.Forms.KeyPressEventArgs) Handles txtResult.KeyPress 
 
End Sub

Asc(e.KeyChar)

Select Case Asc(e.KeyChar) 
 Case 46 'Im Falle ein Punkt wurde gedrückt, denn Ascii:46 ist der Punkt
  e.Handled = True  'Taste wird abgefangen
 Case 8 'Im Falle die BackSpace Taste wurde gedrückt, denn Ascii:8 ist die 
 ' BackSpace Taste
  e.Handled = True 'Taste wird abgefangen
End Select

If it was hard to code, it should be hard to read too.