Sub VariantExample()
Dim varAnyThing As Variant
varAnyThing = 12.345
Debug.Print VarType(varAnyThing)
varAnyThing = 12.345
varAnyThing = varAnyThing & " is a number"
Debug.Print VarType(varAnyThing)
varAnyThing = 12.345
varAnyThing = varAnyThing + "10"
Debug.Print VarType(varAnyThing)
varAnyThing = 12345
Debug.Print VarType(varAnyThing)
varAnyThing = 123456
Debug.Print VarType(varAnyThing)
End Sub
|