Hola Buenas soy nuevo en esto por lo que paciencia conmigo.

He intentado hacer un premedio con 3 casillas a las cuales le asigno un numero, sumo las 3 y lo divido entre 3 por lo que me deberia dar el promedio.. pues no es así puesto que me sale un numero siempre mucho mas grande. adjunto lo escrito en visual. en que estoy fallando? saludos

Private Sub Command1_Click()
Dim promedio

Dim a, b, c

    a = text1.Text
    b = Text2.Text
    c = Text3.Text

promedio = (a + b + c) / 3

MsgBox ("el promedio es" & promedio)
   


End Sub