Ä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.