Private Sub RadioButton1_Click(ByVal sender As Object, ByVal e As _
      System.EventArgs) Handles RadioButton1.Click
        If txt_Comp_Verarb_1 >= 1 Then
            MsgBox("Richtig")
        ElseIf txt_Comp_Verarb_1 <= 0 Then
            MsgBox("Falsch")
        End If
    End Sub

__________________________________________________________________________
wer rechtsschreib fehler findet darf sie behalten