Visual Basic - Duda con Treeview

Hola, estoy aprendiendo a menajar el control Treeview, para ello me apoyo en este ejemplo sacado de www.elguille.info, pero al ejecutarlo, me da el sgte error:

Error 91en tiempo de ejecucion:
Variable de tipo object o la variable de bloque With no esta establecida.

El codigo es el sgte.:

Private Sub Command1_Click()
' Añadir el contenido del Text1 al nodo actual
Dim tNodo As Node
Dim sP As String, sH As String
Dim i As Long
'
' El nodo que está actualmente seleccionado
Set tNodo = TreeView1.SelectedItem
' la clave de este nodo
sP = tNodo.Key '******************************************* aqui error**************
' cuantos hijos tiene
i = tNodo.Children
'
' Si da error, incrementar el valor de i e ir probando...
On Error Resume Next
Do
i = i + 1
sH = sP & "-" & CStr(i)
Err = 0
' Añadirlo como nodo hijo del seleccionado
TreeView1.Nodes.Add sP, tvwChild, sH, Text1
' Si no da error, salir del bucle
If Err = 0 Then Exit Do
Loop

End Sub

El error esta en la linea inidicada con los asteriscos.