From what I can see, your first if block, for the second if, it should be:
elseIf StdResponse = 6 Then
and you seem to have an extra end if, whether you want it just before the end sub or before exit sub, I don't know.
Have you put it in the code window and see? Access should have picked out...