Sub Sample() Dim a As Integer, tmp As Variant a = 123 tmp = CVar(a & "000") MsgBox tmp '123000を返します End Sub