Dim xNod as Node
Private Sub Treeview1_NodeClick(ByVal xNod As Node)
Dim strFoundKey As String
Dim strDBaseKey As String
strFoundKey = xNod.Key
If Left(strFoundKey, 1) = "3" Then
    strDBaseKey = Right(strFoundKey, Len(strFoundKey) - 2)
    Select_Entry strDBaseKey
End If
End Sub