error en macro

Hola grupo un saludo a todos
Mi pregunta es la siguiente, en una hoja de excel que baje de un ejemplo de"
relación de datos de personal en automático" necesitaba aumentar los campos
lo hice y me da el siguiente error al depurar se coloca el indicador en esta
línea:

Dato(Sig) = Trim(StrConv(InputBox("Indica el " & Campo(Sig), ""),
vbProperCase))

la macro completa es esta:

Sub Agrega_Ordena()
Dim Campo, Dato(7), Sig As Byte
Campo = Array("Nombre", "Direccion", "Tel. Movil", "Tel. Particular",
"DNI", "Fecha Nacimiento", "Lugar Nacimiento", "Alta", "Baja", "Comentario
Especial")
With Worksheets("Lista")
For Sig = LBound(Campo) To UBound(Campo)
Captura:
Dato(Sig) = Trim(StrConv(InputBox("Indica el " & Campo(Sig), ""),
vbProperCase))
If Dato(Sig) = "" _
Then If MsgBox("Cancelar Nuevo Registro?", vbYesNo, "") = vbNo _
Then GoTo Captura Else Exit Sub
Next
With .Range("a65536").End(xlUp).Offset(1)
For Sig = LBound(Campo) To UBound(Campo)
.Offset(, Sig) = Dato(Sig)
Next
End With
.Columns("a:j").Sort _
Key1:=.Range("a1"), _
Order1:=xlAscending, _
Header:=xlYes
End With
End Sub

Me podeis ayudar para aumentar los campos de agregar contactos
Esperando vuestras noticias
Un Saludo
lefrudisquitaesto@hotmailyesto.com