[VB6] Passare un tipo definito dall'utente in una funzione

[Gammino]

In Module1:

Public Type myData
    Nome As String
    Cognome As String
End Type

In Form1:

Private Sub Command1_Click()
    Dim x As myData
    x = Form2.Nominativo
    MsgBox x.Cognome
End Sub

In Form2:

Public Function Nominativo() As myData
    Nominativo.Cognome = "Anderson"
    Nominativo.Nome = "Thomas"
End Function

In tre parole: PERCHE' NON FUNZA?