Public Declare Function GetSystemDirectory Lib "kernel32" _
    Alias "GetSystemDirectoryA" (ByVal lpBuffer As String, _
    ByVal nSize As Long) As Long
    
Public Const MAX_PATH = 255

Private Function GetSystemFolder() As String
    Dim lpBuffer As String
    Dim nSize As Long
    Dim lReturn As Long
    
    nSize = MAX_PATH
    lpBuffer = Space(nSize + 1)
    lReturn = GetSystemDirectory(lpBuffer, nSize)
    
    GetSystemFolder = Left(lpBuffer, lReturn)
End Function