Calculator

[bplus]

Ah found it in OldMoses Button Rack:

Code: (Select All)

Sub Clear_MB (var As Integer)

    Do Until Not _MouseButton(var)
        While _MouseInput: Wend
    Loop

End Sub 'Clear_MB

Sorry I thought it was less loopy!