Dim strBuffer As String
Dim lngReturn As Long
Dim strWindowsSystemDirectory As String

strBuffer = Space$(MAX_PATH)
lngReturn = GetSystemDirectory(strBuffer, MAX_PATH)
strWindowsSystemDirectory = Left$(strBuffer, Len(strBuffer) - 1)