Palavra VBA de Referência Cruzada

Eu estou usando o Word 2010 e deseja criar um script VBA para inserir uma referência cruzada.

Costumo inserir uma referência cruzada de números de tabelas e números de figuras. Então, quero mostrar primeiramente uma caixa de diálogo para responder qual rótulo, tabela ou figura a ser inserida. Aqui, por exemplo, vou digitar Figure. Então, quero mostrar outro diálogo para responder ao número da tabela ou ao número da figura. Eu vou digitar 5.

Em seguida, "Figura 5" deve ser inserido.

O script VBA que escrevi é o seguinte:

Public Sub CrossReferrence()  
' To Insert Cross Reference  
'  
Dim reftype As String  
reftype = InputBox("The label to be inserted "Table" or "Figure" = ?")  
Dim refnum  
refnum = InputBox("Table number or Figure number = ?")  
If refnum <> "" Then  
    Selection.InsertCrossReference _  
        ReferenceType:="reftype", _  
        ReferenceKind:=wdOnlyLabelAndNumber, _  
        ReferenceItem:=refnum  
End If  
End Sub  

Parece que a macro pára quando se trata da frase If. Por favor, corrija a macro.

Eu resolvi isso sozinho.

ReferenceType: = reftype

Não há necessidade de usar "". Isso funcionou.