Dim cuenta As Integer
cuenta = 0
Label5.Caption = ""
Label4.Caption = (Val(Text1.Text) + Val(Text2.Text) + Val(Text3.Text)) / 3

If Text3.Text <= 6 Then
cuenta = 2
End If


If Label4.Caption < 4 Then
Label5.Caption = "Rendis en febrero"
Exit Sub
End If

If Label4.Caption >= 7 And cuenta = 0 Then
Label5.Caption = "Aprobastes"
Else
Label5.Caption = "Rendis en diciembre"
Exit Sub


End If