Visual Basic - Evaluar funcion

Buenas colegas!

Hace un tiempo que estoy renegando con el ScriptControl, eh intentado lo siguiente:

Dim StrValor As String

StrValor = "Function Prueva()" & vbCrLf & _
"Dim sql As String" & vbCrLf & _
"Dim rst As DAO.Recordset" & vbCrLf & _
"sql = ""SELECT importe FROM tbl_Empleados WHERE Legajo='" & Me.txtlegajo & "'" & vbCrLf & _
"Set rst = CurrentDb.OpenRecordset(sql)" & vbCrLf & _
"rst.Edit" & vbCrLf & _
"rst(""importe"")" & vbCrLf & _
"rst.Close" & vbCrLf & _
"end Function" & vbCrLf

With ScriptControl1
.Language = "VBScript"
.AddCode StrValor


vValor = .Eval("Prueva()")

'Mostramos el valor devuelto
MsgBox "El valor devuelto es: " & vValor
End With

Pero cuando hago correr el codigo me larga el mensaje: " Se esperaba un final de la instruccion"

Alguien sabe como evaluar con el script el resultado de procedimientos o funciones tal y como lo planteo?, gracias de antemano por su tiempo y por su ayuda.

Estimado colega luego de analizar tu código es evidente que estás utilizando dichas lineas como si fuera una función y recuerda que una funcion devuelve valores pero deberas replantear dicha llamada de la funcion ya que debera terminar como ...

Private/Public Function Nombre(Parametros ....) as boolean

el as boolean dice que de dicha funcion me devolverá un valor booleano.

Por eso te arroja el error que mencionas.

Suerte