Venendo al tuo problema, ci sono due errori:
- in primis, se vuoi una Function devi dichiararla come Function non come Sub;
- in secondo luogo, per restituire un valore lo devi assegnare alla "pseudo-variabile" con lo stesso nome della funzione - ad esempio, se volessi creare una funzione che restituisce True se la stringa non è nulla potresti fare:
codice:
Public Function ControllaNulla(ByVal s As String) As Boolean
    If Len(s)=0 Then
        ControllaNulla = True
    Else
        ControllaNulla = False
    EndIf
End Function
In ogni caso, sono tutti argomenti trattati in qualunque libro di base di VB6