Option Explicit
Private Declare Function GetTickCount Lib _
"kernel32" () As Long
Const NORMAL As Double = 1453
Const RECIPROCAL As Double = 1 / NORMAL
Const TOTAL_COUNT As Long = 10000000
Private Sub Command1_Click()
Dim dblRes As Double
Dim lngC As Long
Dim lngStart As Long
lngStart = GetTickCount
For lngC = 1 To TOTAL_COUNT
dblRes = Rnd / NORMAL
Next 'lngC
MsgBox "Normal Tid : " & GetTickCount - lngStart
lngStart = GetTickCount
For lngC = 1 To TOTAL_COUNT
dblRes = Rnd * RECIPROCAL
Next 'lngC
MsgBox "Reciprocal Tid : " & GetTickCount - lngStart
End Sub