Public Sub Main()
Dim vInput As Variant = "12345"

Inc vInput
Print vInput

End