you mean a UDT?

Code:
Private Type MyType
    My1 As String
End Type
Dim MyMy As MyType

Private Sub Form_Load
     MyMy.My1 = "Hello"
End Sub