■ Access VBA 実行コード

'Windows のシステムディレクトリを取得する
Public Declare Function GetSystemDirectory Lib "kernel32" Alias "GetSystemDirectoryA" _
    (ByVal lpBuffer As String, ByVal nSize As Long) As Long

'コマンドボタンクリックイベント
Private Sub コマンド0_Click()
'255文字分確保
    Dim sBuf As String * 255
    Dim lRet As Long

    lRet = GetSystemDirectory(sBuf, 255)
'文末文字から前を取得
    sBuf = Left$(sBuf, InStr(sBuf, Chr(0)) - 1)
'表示します。
    Me.Caption = sBuf
End Sub