Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles TextBox1.TextChanged
        Dim num1 As Double
        If Not Double.TryParse(TextBox1.Text, num1) Then
            MsgBox("Fehler bei der Eingabe! Bitte korrigieren Sie die Eingabe," & _
              "oder das Resultat wird nicht angezeigt!", MsgBoxStyle.Critical, _
              "Fehler bei der Eingabe!")
            TextBox1.Focus()
            Return
        End If
    End Sub

Private Sub Button18_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Button18.Click
        TextBox1.Text = ""
        TextBox2.Text = ""
        TextBox3.Text = ""
        Label2.Hide()
        cur_operator = ""
    End Sub