Sub asVar() Dim varAnyThing As Variant varAnyThing = 31 varAnyThing = varAnyThing & " is half of 62" End Sub