Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
 
    End Sub

if msgbox("Möchten Sie wirklich fortfahren?",MsgBoxStyle.Question + _
  vbYesNo,"Info") = MsgBoxResult.Yes then
 
//der auszuführende Code
 
Else
 
//Soll er nichts machen
 
End If