NiggersHIT booty

 If Question = 1 Then
            If radAnswer2.Checked = True Then
                MsgBox("Congragulations", MsgBoxStyle.Exclamation, "Results")
            Else
                MsgBox("Nope sorry, try again", MsgBoxStyle.Information, "Results")
            End If
        End If

        If Question = 2 Then
            If radAnswer1.Checked = True Then
                MsgBox("Congragulations", MsgBoxStyle.Exclamation, "Results")
            Else
                MsgBox("Nope sorry, try again", MsgBoxStyle.Information, "Results")
            End If
        End If

        If Question = 3 Then
            If radAnswer3.Checked = True Then
                MsgBox("Congragulations", MsgBoxStyle.Exclamation, "Results")
            Else
                MsgBox("Nope sorry, try again", MsgBoxStyle.Information, "Results")
            End If
        End If

        If Question = 4 Then
            If radAnswer2.Checked = True Then
                MsgBox("Congragulations", MsgBoxStyle.Exclamation, "Results")
            Else
                MsgBox("Nope sorry, try again", MsgBoxStyle.Information, "Results")
            End If
        End If