Dim nResult As Integer
nResult = MsgBox("Bleibt sie - oder geht sie?", vbYesNo)
 
' nachfolgender Code wird erst ausgeführt, wenn der User
' auf JA oder NEIN geklickt hat
If nResult = vbYes Then
  ...
Else
  ...
End If

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de