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

�