Sub Main Dim MyInt As Integer MyInt = 4534 Print MyInt MyVar = CVar(MyInt & "0.23") ' Makes MyInt a Variant + 0.32. Print MyVar End Sub