Private Sub cmdRechnen_Click()
       Dim m As Object
       Dim b As Boolean
 
       If Not IsNumeric(txtEingabe1.Text) And Not IsNumeric(txtEingabe2.Text)  _
         Then
               MsgBox "Geben Sie bitte nur Zahlen ein"
               Exit Sub
       ElseIf  IsNumeric(txtEingabe1.Text) And IsNumeric(txtEingabe2.Text) Then
               For Each m in Form1.Controls
                     If TypeOf m Is Menu then
                           If m.Checked Then b = True
                           Exit For
                     End if
               Next
       End If
 
       If Not b Then
               Msgbox "Bitte wählen Sie eine Funktion aus dem Menü aus."
       End If
End Sub