Method for pop-up prompt box (Alertscript)

Public Sub Showalert (Byval Message AS String)

DIM Script as string = "