Sub Main Dim Y As Integer Y = 25 Print Y If VarType(Y) = 2 Then X = CStr(Y) ' Converts Y To a Str X = X + "hello" ' It is now possible to combine Y with strings Print X End If End Sub