Type user Defined

Type Xrecord
Name As String * 20
Address As String * 30
Phone As Long
HireDate As Date
End Type
Sub test2()
Dim Brand As Xrecord
Brand.Phone = 23
MsgBox Brand.Phone
End Sub