VBでiniファイルの取得方法

sample.vb

Const DEF_STR As String = vbNullString
Dim nmBuffer As String = New String(" ", 64)         ' iniファイルから取得した項目(事前に領域を設定)

' iniファイル名を指定
Dim iniFileName As String = Application.StartupPath & "\sourceCheck.ini" 'INIファイル名
        
' 項目名を指定し、設定内容を取得
Dim ret As Integer = GetPrivateProfileString("CHKCONF", "userNm", DEF_STR, nmBuffer, nmBuffer.Length, iniFileName)
        
' 設定内容の一番後ろがnullCharなので、余計なものをtrimしておく
userNmText.Text = nmBuffer.Substring(0, nmBuffer.IndexOf(vbNullChar))