VB6, calcular promedio nota 1,2 y 3

hola amigos necesito ayuda con un control de notas en la aplicacion esta nota 1 nota 2 y nota 3 en el cual al darle al boton calcular debe hacr el calculo del promedio de esas tres notas y en un msgbox decir si aprovo el semestre o no... la ayuda que necesito no es que me agan la tarea si no que me den un ejemplo de como lo puedo resolver... estoy aprendiendo a programar con Visual b y es muy importante para mi... se los agradesco de ante mano gracias.


Asi estar el codigo del programa ahora pero no corre quien me ayuda?? se lo agradesco

If txtnota1.Text = "" Or txtnota2.Text = "" Or txtnota3.Text = "" Then
MsgBox "debe colocar todos los datos", vbCritical
Else



promedio = (txtnota1.Text + txtnota2.Text + txtnota3.Text) / 3
If promedio >= 6 Then
MsgBox APROVADO
Else
MsgBox REPROVADO
End If
End Sub

Asi esta mi codigo ahora pero el programa no corre que esta malo ayudaa :S