使用自定义数据类型存储输入数据，并通过弹出窗口展示
【代码区域】
Type lianxiren ‘
name As String
Sex As String
End Type
Sub aa()
Dim record As lianxiren ‘声明一个lianxiren类型的变量
record.name = InputBox("请输入名称", "记录联系人信息")
record.Sex = InputBox("请输入性别", "记录联系人信息")
MsgBox "姓名：" & record.name & vbLf & "性别：" & record.Sex, vbOKOnly, "联系人基本信息"
End Sub
【代码解释】
第1~4定义一个变量，第6行声明了一个自定义数据类型的变量，第7~8行用于输入所定义的变量值，第9行用于输出所定义的变量的值。
按F5执行，依次输入结果姓名，性别，查看结果
【效果图】
原文：http://www.cnblogs.com/OliverQin/p/6203716.html