Sub variantDemo() Dim varAnyThing As Variant varAnyThing = "31" varAnyThing = varAnyThing + 10End Sub