I would have been a little more creative with that one!

Perhaps
[vba]
Sub foo()
Dim x
Again:

x= Msgbox ("Excel has determined that the user has insufficent equipment, is your equipment insufficient?",vbYesNo)
If x = vbNo then Goto Again

Msgbox "Thought so"
End Sub
[/vba]