'------------------------------------------------------------------------------
'  設定ファイル文字列取得（宣言）
'------------------------------------------------------------------------------
Declare Function WritePrivateProfileString Lib "kernel32" Alias _
        "WritePrivateProfileStringA" (ByVal lpApplicationName As String, _
        ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As _
        String) As Long


    ' "Test"という値を設定ファイルの指定した項目に更新します
    w_ret = WritePrivateProfileString("AppName", "KeyName", "Test", "C:\TEST.INI")