Private Sub TreeView1_NodeClick(ByVal node As Object)

If Not IsNothing(node.Parent) = False Then
df = "No parent"
Else
df = node.Parent.Key
End If

UserForm1.TextBox3.Value = "Index = " & node.Index & " Text:" & node.Text & " | " & node.Key & " | " & df & " | " & node.Children


If InStr( 1 , node.Key, "TMP ") =  1  Then
    my_key =  1 
    my_key_par1 = "TMP"
End If

If InStr( 1 , node.Key, "Cluster ") =  1  Then
    my_key =  2 
    my_key_par1 = "Cluster"
End If

If InStr( 1 , node.Key, "Job ") =  1  Then
    mykey =  3 
    my_key_par1 = "Position"
End If

End Sub

ByVal Node As MSComctlLib.Node

Private Sub TreeView1_NodeClick(ByVal node As Object)