Data Type VisualBasic Script

Sub VariantExample()
    Dim varAnyThing     As Variant
    varAnyThing = 12.345
    Debug.Print VarType(varAnyThing)
    
    varAnyThing = 12.345
    varAnyThing = varAnyThing & " is a number"
    Debug.Print VarType(varAnyThing)
    
    varAnyThing = 12.345
    varAnyThing = varAnyThing + "10"
    Debug.Print VarType(varAnyThing)
    
    varAnyThing = 12345
    Debug.Print VarType(varAnyThing)
    
    varAnyThing = 123456
    Debug.Print VarType(varAnyThing)
End Sub