Assign difference type variable to Variant variable
Sub var() Dim varAnyThing As Variant varAnyThing = 31 varAnyThing = "Any old thing" End Sub