Option Compare Database
Option Explicit

Public Declare Function GetWindowsDirectory _
    Lib  "kernel32"  Alias  "GetWindowsDirectoryA"  _
    (ByVal lpBuffer As String, ByVal nSize As Long) As Long
Public Declare Function GetSystemDirectory _
    Lib  "kernel32"  Alias  "GetSystemDirectoryA"  _
    (ByVal lpBuffer As String, ByVal nSize As Long) As Long

Sub tt()

Dim s As String

s = Space( 255 )
GetWindowsDirectory s,  255 
Debug.Print Trim(s)
s = Space( 255 )
GetSystemDirectory s,  255 
Debug.Print Trim(s)

End Sub