Public Function GetNode(ByVal node As TreeNode, ByVal TreeName As String) As _
  TreeNode
  Dim nodes() As String = TreeName.Split("-".ToCharArray())
 
  For Each name As String In nodes
    Dim Num As Integer = Convert.ToInt32(name)
    If (node.Nodes.Count > Num) Then
      node = node.Nodes(Num - 1)
    Else
      Return Nothing
    End If
  Next
  Return node
End Function