usando if vbokCancel=ok then vb6

[ernestoelunico]

hola tengo el siguiente codigo el problema es que tengo que hacer un condicional es decir cuando elusuario apriente un boton le va a salir un msjbox con dos botones aceptar y cancelar pero si el usuario prieta aceptar se hace la instrucion que esta en un bloque if si apreta cancelar regresa a la ventana aqui les pongo el codigo
no me sirve porque no importa si apreto ok o cancel siempre ejecuta lo que hay en el if

Private Sub CmndBorrar_Click()
MsgBox "Esta a punto de borrar el usurio y registros para completar esta operacion aceptar", vbOKCancel
If vbOK = vbOK Then
ruta1 = App.Path & "\Mi empresa\registros.mdb"
ruta2 = App.Path & "\Mi empresa\val.dat"
ruta3 = App.Path & "\Default User\val.dat"
Kill ruta1
Kill ruta2
MsgBox "Los datos han sido borrados", vbInformation
ruta4 = App.Path & "\Mi empresa\val.dat"
FileCopy ruta3, ruta4
Unload Frmhome
Frmhome.Show
End If

End Sub