Dim 姓名 As String
Dim 年龄 As Integer
Dim 出生日期 As Date
例:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim 姓名 As String
Dim 年龄 As Integer
Dim 出生日期 As Date
姓名 = "不倒翁"
年龄 = 31
出生日期 = #8/11/1982#
MsgBox(姓名)
MsgBox(年龄)
MsgBox(出生日期)
End Sub