On Sun, 08 Jun 1997 15:57:08 GMT, unique@iol.ie (Rodney K. Johnson) wrote:

>MsgBox "Proceed With this Function?", 36, "Custom-System"
>

Dim answer

answer = MsgBox "Proceed With this Function?", 36, "Custom-System"
If answer<> IDYES then 
exit
 Sub


BTW you get the value 
on
 the 
label
 by:

Label1.caption = Cstr(answer)