Lotus Notes - querysave de un formulario

Buenas,
Me sale un error en el querysave de un formulario
"Variant does not contain an object", me sale cuando salgo del formulario, he metido este agente en el querysave:
¿que estoy haciedo mal?
Sub Querysave(Source As Notesuidocument, Continue As Variant)

Dim docCheck As NotesDocument
Dim uidoc As NotesUIdocument
Dim view As NotesView
If source.isnewdoc Then

Set db = session.CurrentDatabase
Set view=db.getview("LookupFormulario")
Set docCheck=view.getdocumentbykey(doc.Autordoc(0))
If Not (docCheck Is Nothing) Then
Messagebox "¡No se puede crear más de una Formulario por
Usuario!",0+48,"Ya ha creado uno este Usuario"
Continue=False
Set uidoc=ws.editdocument(False,docCheck)
Exit Sub
Else
Continue=True
End If
End If
End Sub

Gracias y un saludo

Ya esta solucionado, no había declarado las variables....
Gracias