Hacer un mensaje con VBOKCANCEL y que hacer en cada opcion

i = MsgBox("Desea Continuar", vbOKCancel)

If i = vbCancel Then
ActiveWorkbook.Close'lo que se quiere hacer en caso de que sea Cancel
Exit Sub
Else
i = vbOK
End If

' codigo que es lo que se quiere hacer en caso de que se OK