Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles TextBox2.TextChanged
        Dim num2 As Double
        If Not (Char.IsDigit(e.Keychar) Or Char.IsLetter(e.KeyChar) Or _
          Char.IsSeparator(e.KeyChar) Or Char.IsControl(e.KeyChar)) Then _
          e.Handled = True
        If Not Double.TryParse(TextBox2.Text, num2) Then
            MsgBox("Fehler bei der Eingabe! Bitte korrigieren Sie die Eingabe," & _
              "oder das Resultat wird nicht angezeigt!", MsgBoxStyle.Critical, _
              "Fehler bei der Eingabe!")
            TextBox2.Focus()
            Return
        End If
    End Sub