msgbox som returnere ok eller cancel

Jeg har følgende funktion:

Function Printok
  rs2.Movefirst
  Do While not Rs2.EOF
    StrSQL = "UPDATE Skandidatevaluering SET Udskrevet= '" & Date() & "' WHERE KandidatevalId = " & Rs2("KandidatevalId")
    Conn.Execute(strSQL) 
    rs2.Movenext   
  Loop
End function

Jeg vil gerne (et andet sted i scriptet) have indsat en msgbox og hvis brugeren klikker ok, så skal funktionen køres.