'▼APIの宣言
Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" ( _
    ByVal lpBuffer As String, _
    ByVal nSize As Long _
) As Long

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

'▼関数の宣言
Function GetWinDir$()
    buf$ = Space$(256)
    n = GetWindowsDirectory(buf$, 255)
    GetWinDir$ = Left$(buf$, n)
End Function

Function GetSysDir$()
    buf$ = Space$(256)
    n = GetSystemDirectory(buf$, 255)
    GetSysDir$ = Left$(buf$, n)
End Function

MsgBox "Windows ディレクトリは " & GetWinDir & " です。"
MsgBox "System ディレクトリは " & GetSysDir & " です。"

GetWinDir…Windowsディレクトリのパスが入っています。
GetSysDir…Systemディレクトリのパスが入っています。

通常、Windowsディレクトリは a:\windows(NEC PC-98x1 シリーズ)か、
c:\windows(一般のDOS/V)です。また、複数のWindowsを使い分けている
人はこの二つではないことがあります。
ですから、機種や環境によってもWindowsディレクトリは違いますから、
この関数を利用して正確に把握するようにしましょう。
（もちろん、Windowsディレクトリを知る必要があればですが）

Systemディレクトリも同様です。たいていはWindowsディレクトリ下の
System(つまり、a:\windows\systemやc:\windows\system)です。