Public Class frmMain
 
    Private Sub btnCalc_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles btnCalc.Click
 
        Dim Wert1 As Double
        Dim Wert2 As Double
        Dim Wert3 As Double
        Dim Wert4 As Double
        Dim Wert5 As Double
        Dim Wert6 As Double
 
        Try
            Wert1 = Double.Parse(TextBox1.Text)
            Wert2 = Double.Parse(TextBox2.Text)
            Wert3 = Double.Parse(TextBox3.Text)
            Wert4 = Double.Parse(TextBox4.Text)
            Wert5 = Double.Parse(TextBox5.Text)
            Wert6 = Double.Parse(TextBox6.Text)
 
            'Hier kann dann mit den Werte gerechnet werden.
            Dim Ergebnis As Double
            Ergebnis = Wert1 * Wert2 + Wert3 / Wert4
 
            'Beispielausgabe:
            MsgBox(String.Format("Berechnete Zahl ist: {0}", _
              Ergebnis.ToString), MsgBoxStyle.Information, "Info!")
        Catch ex As Exception
            MsgBox("Es ist ein Fehler aufgetreten: " & ex.ToString, _
              MsgBoxStyle.Critical, "Fehler!")
        End Try
 
    End Sub
 
End Class