Option Explicit
 
Private Sub cmdStart_Click()
    If optAdd.Value = True Then
        lblAusgabe.Caption = Val(txtZahl1.Text) + Val(txtZahl2.Text)
    ElseIf optSub.Value = True Then
        lblAusgabe.Caption = Val(txtZahl1.Text) - Val(txtZahl2.Text)
    ElseIf optMult.Value = True Then
        lblAusgabe.Caption = Val(txtZahl1.Text) * Val(txtZahl2.Text)
    ElseIf optDiv.Value = True Then
        Dim Ergebnis As Single
        If txtZahl2.Text = "0" Then
            MsgBox "Division durch Null ist unzulässig!"
            Exit Sub
        End If
        Ergebnis = Val(txtZahl1.Text) / Val(txtZahl2.Text)
        lblAusgabe.Caption = Format(Ergebnis, "0.00")
    Else
        MsgBox "Sie müssen eine Berechnungsart auswählen!"
    End If
End Sub