Just assign the value to return to the name of the function:

Sub test1()

Dim cenom, cenonlala As String

cenom = test2(cenonlala)
End Sub


Function test2(cenomtras As String) As String

cenonlala = "LALA"

test2 = cenonlala

End Function

--
Regards,
Tom Ogilvy


"ina" wrote:

Thanks it is just to understand as i need to get data from function to
sub

:) :) :)