Data Type VisualBasic Script

Sub Constants()
    Const PI = 3.14159
    Dim circumference As Single
    Dim diameter As Single
    diameter = 10.32
    circumference = PI * diameter
End Sub