Display Message with Timer - VBScript

Following Script displays a message for 60seconds OR until user clicks OK.

a = "WSS 4.1 is already installed, Exiting WSS 5.0 Installation"
Set sh = CreateObject("WScript.Shell")
sh.Popup a,60, ""