better way to resort to previous tool after zooming

[runflacruiser]

Hi.
Assign macro shortcut shift z
Run with shift z and hit esc to return to previous tool, or wait 3 seconds to go back to previous tool automatically.
If previous tool was already zoom tool then macro resorts to pick tool.
You can change seconds value in macro (search for 3 in code).

Option Explicit

Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer

Sub quickZoom()
    Dim t As Integer
    Dim sngStartTime As Single
    sngStartTime = Timer
   
    t = ActiveTool
    If ActiveTool <> cdrToolZoom Then
            ActiveTool = cdrToolZoom
        End If
    Do While GetAsyncKeyState(vbKeyEscape) = 0 And (Timer - sngStartTime) < 3
        DoEvents
    Loop
    If t = cdrToolZoom Then
        ActiveTool = cdrToolPick
    Else
        ActiveTool = t
    End If
End Sub

Anyone have a better way?
-John