Sende en TYPE variabel til en Sub ( Begeynder SPG)

Er der nogle som kan hjælpe mig med syntax'en
Problemt er at funktionen SaveData ikke kan modtage TYPE-variablen


**********UserForm1********
Dim Data as MOdule1.ArkivData
Private Sub Luk_Click()
Module1.SaveData (Data)
End Sub
********** Module1 ********

Type ArkivData    ' Create user-defined type.
    RadioData As Variant
    TabelData As Variant
    T_Data As Variant
    lblDatoperiode As Variant
    lblKassenr As Variant
    lblBeskrivelse As Variant
    lblKassation As Variant
End Type

Function SaveData(ByRef AData) As ArkivData
AData. ?
End Function

mvh Thomas