error en Treeview

saludos.

estoy ttrabajanndo en un treeview de un ejemplo que vi en internet pero me arroja un error

Private Sub TreeView1_KeyDown(KeyCode As Integer, ByVal Shift As Integer)

With TreeView1.SelectedItem

    'aqui una de las ventajas de tener bien definido el Tag. si este es

    'distinto a marca , entonces es una caracteristica:

    If .Tag <> "marca" Then

        'si la tecla presionada es la de borrar:

        If KeyCode = vbKeyDelete Then

            'borro el dato en excel

            Range(.Tag).ClearContents '

            'y quito el nodo

            TreeView1.Nodes.Remove (.Index)

        ElseIf KeyCode = vbKeyReturn Then

        'si presiona la tecla Enter, llamo a un inputbox que me permi

        'tirá modificar el dato existente:

            dato = InputBox("Ingrese el nuevo valor: ", "Modificación")

            'coloco en excel:

            Range(.Tag).Value = dato '[COLOR=#ff0000]<-----------ACA ESTA EL ERROR PERO NO SE PORQUE (((((([/COLOR]

            'debo actualizar la propiedad text del nodo, con el nuevo

            'dato ingresado:

            'tomo la primer parte del texto, el cual se encuentra separado

            'por los dos puntos:

            posi = InStr(1, .Text, ":")

            'separo la primer parte (que es la descripcion)

            primerParte = Left(.Text, posi)

            'y lo coloco en el nodo, concatenando la descripcion

            '(precio:, abs:, alarma:, etc, etc) con el nuevo

            'valor ingresado

            .Text = Trim(primerParte) & " " & Trim(dato)

        End If

    End If

End With

End Sub

 [/CODE]

no se si sea un error de sintaxis, lo que se supone hace este codigo es: si doy enter en alguno de los nodos diferentes a los que tengan el Tag "marca" me arroja un cuadro de dialogo permitiendome modificar el contenido de este ultimo seleccionado(entre algunas de las cosas que hace por que tambien me permite borrarlas pero esa parte no me interesa por ahora)

agradezco me diga cual es el error. este codigo fue extraido de