Private Sub SucheInTreeview(ByVal strSuchbegriff As String)
Dim oNode As Node
    For Each oNode In TreeView1.Nodes
        If oNode.Text = strSuchbegriff Then
            oNode.Expanded = True
            Exit Sub
        End If
    Next oNode
End Sub