Public Class Form1

        Dim nota As Integer
        Dim media As Integer

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        If RadioButton1.Checked = True Then
            nota = 3
        End If

        If RadioButton6.Checked = True Then
            nota = nota + 3
        End If

        If RadioButton7.Checked = True Then
            nota = nota + 3
        End If
        If nota = 9 Then
            media = 10
        End If
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        MessageBox.Show("Sua Nota Foi: " & media)
    End Sub
End Class