Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Dim a As Integer, b As Integer, CPR As Integer, FRM As Integer, HOR As _
        Integer
 
        Select Case True
            Case RadioButton1.Checked
                a = 0
                b = 1
 
            Case RadioButton2.Checked
                ' usw
            Case RadioButton3.Checked
                'usw
 
        End Select
 
        ' Weiter für andere RadioButtons
 
        ' Jetzt Berechnung durchführen
        Textbox1.Text = 124.443 - 18.76 * HOR - 49.8 * b - 30.666 * a - 10.968 _
          * CPR
 
    End Sub

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist