変数の型を知るにはTypeName()

ExcelVBA 
Dim i As Integer
MsgBox TypeName(i)


ネタ元