…………………………
End Type
例如，定义一个地址数据：
Type Address
Street As String
ZipCode As String
Phone As String
End Type

这个地址数据里包括三个属性，街区、邮政编码和电话，可以把某数据定义成此类型：
Dim MyHome As Address
要调用或改变“MyHome”的值时，类似于对对象的属性的操作：
变量名.域名＝“……”
为了简化书写重复的部分,可以用关键字“With”：
With MyHome
.Street=”阜成路”
.ZipCode=”100037”
.Phone=”12345678”
End With