Nice example I had been doing this manually iterating through the node list.
I converted your example to code behind in VB for anyone who needs it in VB instead.
#
Region "SET RAD EDITOR VALUES"
Private Sub GetSiteMap()
'Clear our links and set our sitemap
RadEditor1.Links.Clear()
'Recursively process our Sitemap into our RadEditor
SetRadLinks(RadEditor1.Links, SiteMap.RootNode)
End Sub
Private Sub SetRadLinks(ByVal ParentLink As Telerik.WebControls.RadEditorUtils.Link, ByVal mySiteMapNode As SiteMapNode)
Dim I As Int32 = 0
Dim CurrentLink As Telerik.WebControls.RadEditorUtils.Link = New Telerik.WebControls.RadEditorUtils.Link(mySiteMapNode.Title, mySiteMapNode.Url, "", mySiteMapNode.Description)
ParentLink.Add(CurrentLink)
'Loop through our Child Links
For I = 0 To (mySiteMapNode.ChildNodes.Count - 1)
SetRadLinks(CurrentLink, mySiteMapNode.ChildNodes(I))
Next
End Sub
#
End Region