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