if your able to add an attribute to each node you can just use
Dim node As RadTreeNode = RadTreeView1.FindNodeByAttribute("CategoryId", Request.QueryString("CategoryID"))
in my case I had added this attribute to every node created
Dim a As RadTreeNode = New RadTreeNode
a.Attributes.Add("CategoryId", dr("CategoryId"))