Private Function FindFilePathUp(ByVal FilePathToFind As String) As String
        ' Se http://www.vbarchiv.net/forum/read.php?f=10&i=74589&t=74588
 
        Dim Pos As Integer = FilePathToFind.ToUpper.IndexOf("TEAMS")
        Dim FilePath As String = IO.Path.GetDirectoryName(FilePathToFind)
        Dim Filename As String = IO.Path.GetFileName(FilePathToFind)
        Dim SearchPath As String = FilePath.Substring(0, Pos + 5)
        Dim found As Boolean = False
        Do
            Dim f() As String = IO.Directory.GetFiles(SearchPath, Filename, _
              SearchOption.AllDirectories)
            If f.Length > 0 Then
                Return f(0) 'Pfad/Dateiname zur gefundenen Datei
            Else
                SearchPath = IO.Path.GetDirectoryName(SearchPath)
                found = String.IsNullOrEmpty(SearchPath) 'FilePath)
            End If
        Loop While Not found
 
        Return Nothing 'nix gefunden
 
    End Function