ho risolto proprio ora.....ho fatto così:
Dim a As Class1
Set a = New Class1
Dim ab As Long
ab = a.messaggio()


...magari non vi interessa lo so .....ciao e grazie comnunque