es un form con dos cuadros de texzto y un boton
Option Compare Database
Function suma(a As Integer, b As Integer) As Integer
suma = a + b
End Function
Private Sub Comando7_Click()
Dim total_suma As Integer
total_suma = suma(Me.Texto3.Value, Me.Texto5.Value)
MsgBox "Total de la suma: " & total_suma
End Sub
espero te sirva
saludos.