Dim Valeur

Sub essaiProc (arg1, arg2)
	MsgBox "Vos argument pour la procédure sont : " & arg1 & " " & arg2
End Sub

essaiProc "Toto", 10
Valeur = essaiFonction(2,3)

MsgBox "L'opération 2 + 3 donne " & valeur

Function essaiFonction (arg1, arg2)
	essaiFonction = arg1 + arg2
End Function