Write and read ini file with VB.Net

    Private Declare Auto Function GetPrivateProfileString Lib "kernel32" (ByVal lpAppName As String, _
            ByVal lpKeyName As String, _
            ByVal lpDefault As String, _
            ByVal lpReturnedString As StringBuilder, _
            ByVal nSize As Integer, _
            ByVal lpFileName As String) As Integer

    Private Declare Auto Function WritePrivateProfileString Lib "kernel32" (ByVal lpAppName As String, _
            ByVal lpKeyName As String, _
            ByVal lpString As String, _
            ByVal lpFileName As String) As Integer

    Public Function ReadINI(ByVal sSection As String, ByVal sKeyName As String, ByVal sFileName As String) As String
        On Error Resume Next
        Dim res As Integer
        Dim sb As StringBuilder
        sb = New StringBuilder(500)
        res = GetPrivateProfileString(sSection, sKeyName, "", sb, sb.Capacity, sFileName)
        ReadINI = sb.ToString.Trim
    End Function

    Public Sub WriteINI(ByVal sSection As String, ByVal sKeyName As String, ByVal sNewString As String, ByVal sFileName As String)
        On Error Resume Next
        Dim flag As Integer
        flag = WritePrivateProfileString(sSection, sKeyName, sNewString, sFileName)
    End Sub