Retourner une valeur avec une fonction depuis une sub

Bonjour,

Je souhaiterais obtenir : test = 2*M0. J'écris mon code principal dans la sub et multiplie par deux dans une fonction. Avec ce code, je rentre bien dans la fonction (M1 = 2) mais la fonction ne renvoie aucune valeur. ici, la variable test est vide.

Function multi2(M0)
M1 = M0 * 2
MsgBox (M1)
End Function

Sub subtest()
M0 = 1
test = multi2(M0)
MsgBox (test)
End Sub

Avez vous une solution pliiiz