Lo que cojes de la caja de texto lo tienes que convertir a numérico. Aquí tienes una función a modo de ejemplo:
Código:
Private Function suma(num1, num2) As Integer
suma = 0
If IsNumeric(num1) = False Then
MsgBox "Num1 no es numérico"
Exit Function
End If
If IsNumeric(num2) = False Then
MsgBox "Num2 no es numérico"
Exit Function
End If
suma = Int(num1) + Int(num2)
End Function
Un saludo
Txarly