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 Tip zukommen lassen hat.