Получить значение из ini-файла

        Dim ret As String ' объявляем переменную типа строка 
        ret = ReadINI("MAIN", "caption", Application.StartupPath & "\test.ini")

        Dim A As String
        A = My.Settings.Переменная

Dim L() As String = IO.File.ReadAllLines("C:\h.txt")
Dim A As String
A = L(0)

    Private Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpAppName As String, ByVal lpKeyName As String, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Integer, ByVal lpFileName As String) As Integer
    Private Declare Function WritePrivateProfileString Lib "Kernel32" Alias "WritePrivateProfileStringA" (ByVal Section As String, ByVal Key As String, ByVal putStr As String, ByVal INIfile As String) As Integer
 
    Private Function ReadINI(ByVal sSection As String, ByVal sKey As String, ByVal sIniFileName As String)
        Dim nLength As Integer
        Dim sTemp As String
        Dim lsTemp As Integer
        sTemp = Space(255)
        lsTemp = Len(sTemp)
        nLength = GetPrivateProfileString(sSection, sKey, "", sTemp, lsTemp, sIniFileName)
        Return Left(sTemp, nLength)
    End Function
 
    Public Sub reading()
        Dim s As String = ReadINI("main", "option", Application.StartupPath & "\my.ini")
    End sub

Return Microsoft.VisualBasic.Left(sTemp, nLength)