VBA - Avaliação De Notas

Private Sub CheckBox1_Click()

If Me.CheckBox1 = True Then

Me.TextBox1.Text = "0"

Else

Me.TextBox1.Text = ""

End If

End Sub

Private Sub CheckBox2_Click()

If Me.CheckBox2 = True Then

Me.TextBox2.Text = "0"

Else

Me.TextBox2.Text = ""

End If

End Sub

Private Sub CheckBox3_Click()

If Me.CheckBox3 = True Then

Me.TextBox3.Text = "0"

Else

Me.TextBox3.Text = ""

End If

End Sub

Private Sub CheckBox4_Click()

If Me.CheckBox4 = True Then

Me.TextBox4.Text = "0"

Else

Me.TextBox4.Text = ""

End If

End Sub

Private Sub CommandButton1_Click()

'Declarando variáveis

Dim nota1, nota2, nota3, nota4, media As Double

' Este comando indica as variaveis correspondente as caixas de texto

nota1 = Me.TextBox1.Text

nota2 = Me.TextBox2.Text

nota3 = Me.TextBox3.Text

nota4 = Me.TextBox4.Text

'Se (Condição) então

If Me.TextBox1.Text = "" Or Me.TextBox2 = "" Or Me.TextBox3 = "" Or Me.TextBox4 = "" Then

MsgBox "Digite todas as notas", vbInformation, "Erro"

Else ' Senão

media = (Val(nota1) + Val(nota2) + Val(nota3) + Val(nota4)) / 4

Me.Label5 = "A Média do aluno é: " & media

End If

If media >= 7 Then

Me.Label6 = "Aluno Aprovado"

Me.Label6.ForeColor = &HFF0000

Else

Me.Label6 = "Aluno Reprovado"

Me.Label6.ForeColor = &HFF&

End If

End Sub

Private Sub CommandButton2_Click()

Me.TextBox1.Text = Empty

Me.TextBox2.Text = Empty

Me.TextBox3.Text = Empty

Me.TextBox4.Text