Te comento:
Esto no es una función es un procedimiento y como tal no devuelve nada, para eso ya están las funciones.
Código:
Public Sub busca(ByVal resultado As Integer)
Te pongo un ejemplo:
Código:
Private Sub Form_Click()
Dim resultado As Integer
resultado = 0
busca1 (resultado)
MsgBox "El procedimiento devuelve: " & resultado
MsgBox "La función devuelve:" & busca2(resultado)
End Sub
Public Sub busca1(ByVal resultado As Integer)
resultado = 10
End Sub
Public Function busca2(ByVal resultado As Integer) As Integer
busca2 = 10
End Function
Espero que te sirva.
Un saludo.