Private Declare Function GetSystemDirectory Lib "kernel32" Alias "GetSystemDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long

Public Function retSysDir() as string
     Dim sysstr As String * 256
     GetSystemDirectory sysstr , 256
     retSysDir=Left(sysstr , InStr(sysstr , Chr(0)) - 1)
End Sub