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


Dim w_str             As String * 255   ' 作業文字列
Dim w_ret             As Long           ' 戻り値

    ' 取得した値を格納する変数w_strは必ず固定長で宣言します
    ' AppNameにはINIファイル中の[]の中の文字列をセットします
    ' AppNameで指定したセクションで=の左辺がKeyNameの値を取得してw_strに格納します
    w_ret = GetPrivateProfileString("AppName", "KeyName", "", w_str, 255, "C:\TEST.INI")

    ' 戻り値の長さ分を取得文字列とする
    w_get = StrConv(MidB$(StrConv(w_str, vbFromUnicode), 1, w_ret), vbUnicode)

    If w_ret = 0 Then
        ' 取得できなかった場合の処理
    End If