Data Type VisualBasic Script

Sub doubleDemo()
    Dim sngNumber As Single
    Dim dblNumber As Double
    sngNumber = 123.456
    dblNumber = 789.012
End Sub