Fonction
Une fonction renvoie une valeur, cette valeur est passée au code appelant par le nom de la fonction

Syntaxe
[Private ou Public] Function NomFonction([argument1 As Type, argument2 As Type,...]) As Type
................................... code .................................
NomFonction = ValeurARenvoyer
End Function

Puis pour utiser la fonction (dans la suite du code) :
Val = NomFonction(arg1, arg2,...)   où Val est du même type que la valeur renvoyée par la fonction.
Exemple
Private Function Comparaison(a As integer, b As integer) As String
If a<b Then
Comparaison = "Le premier nombre est plus petit"
Else
Comparaison = "Le deuxième nombre est plus petit"
End If
End Function

Sub Main
Dim Résultat As String
Résultat= Comparaison(23, 11)
Msgbox Résultat
End sub

La procédure Main affiche le message : "Le deuxième nombre est plus petit"