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