Ähnlich wie das Windows-Verzeichnis können Sie auch
das Windows-System-Verzeichnis ermitteln:

Private Declare Function GetSystemDirectory Lib _
"KERNEL32" Alias "GetSystemDirectoryA" _
(ByVal lpBuffer As String, ByVal nSize As Long) As Long
Public Function WinSysDir() As String
   Dim sDirBuf As String * 255
   StringLength = GetSystemDirectory(sDirBuf, 255)
   WinSysDir = Left$(sDirBuf, StringLength)
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 =WinSysDir() ein.