Um das Windows-Verzeichnis zu ermitteln fügen Sie
     folgenden Code in ein Modul ein:

   Private Declare Function GetWindowsDirectory Lib _
      "KERNEL32" Alias "GetWindowsDirectoryA" _
      (ByVal lpBuffer As String, ByVal nSize As Long) As Long

   Public Function WinDir() As String
      Dim sDirBuf As String * 255
      StrLen = GetWindowsDirectory(sDirBuf, 255)
      WinDir = Left$(sDirBuf, StrLen)
   End Function
    Sie können diese Funktion sowohl in Ihren Makros verwenden,
    als auch als eine Tabellenfunktion.
    Geben Sie hierzu in die entsprechende Zelle die Formel =WinDir() ein
    Eine schnellere und einfachere Möglichkeit das
    Windows-Verzeichnis zu ermitteln, besteht darin die
    Umgebungsvariable WinDir auszuwerten:

   Public Function WinDir() As String
      WinDir = Environ("windir")
   End Function

     Vielen Dank an dieser Stelle an Jan-Hendrik Lendholt,
     der mir diesen Tipp zukommen lassen hat.