Access - COSA TONTA

haber si alguien se sabe esto.

tengo un boton en un formulario que lo unico que hace es:

DoCmd.GoToRecord , , acNewRec

y funciona bien

pero si pongo esto* para que pregunte antes de crear no funciona.

*

r = MsgBox("¿ crear uno nuevo ?", vbYesNo)

If r = vbYes Then

DoCmd.GoToRecord , , acNewRec

End If

gracias

seria asi
dim nuevo as variant
nuevo = msgbox "crea nuevo?"
if nuevo = vbYes then
dmcmd.got.......
etc