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