Sub varTypeTest() Dim Age As Integer Dim birthdate As Date Dim firstName As String MsgBox varType(Age) MsgBox varType(birthdate) MsgBox varType(firstName) End Sub