[Help] WriteIniValue [Solved]

Sub WriteINI()
Dim file As String = "C:\hejsan.ini"
        Dim content As String = "[Path]='Enter path here...'" & vbCrLf & "Num1: 60" & vbCrLf & "Num2: 80" & vbCrLf & "blah blah blah..."

        My.Computer.FileSystem.WriteAllText(file, content, False)
End Sub

Sub ReadINI()
Dim file As String = "C:\hejsan.ini"
Dim read As String = My.Computer.FileSystem.ReadAllText(file)
        MsgBox(read)
End Sub()

Sub INI()


        Dim file As String = "C:\hejsan.ini"
        Dim x As New IO.StreamReader(file)
        Dim finalstring As String = ""
        While Not x.EndOfStream

            Dim temp As String = x.ReadLine

            If temp.StartsWith("Num1: ") Then
                'First remove the 'Num1: ' from the line
                temp = temp.Replace("Num1: ", "")

                'The following lines will replace the contents of the line that starts with Num1

                Dim replacement As String = "xxx"
                temp = temp.Replace("File", replacement)

                'Rewrite 'Num1: '
                finalstring += "Num1: " & temp

            ElseIf temp.StartsWith("Num2: ") Then

                'First remove the 'Num2: ' from the line
                temp = temp.Replace("Num2: ", "")

                'The following lines will replace the contents of the line that starts with Num2

                Dim replacement As String = "LOL"
                temp = temp.Replace("File2", replacement)

                'Rewrite 'Num2: '
                finalstring += "Num2: " & temp
            Else
                'Write the lines which don't need editing...
                finalstring += temp

            End If


        End While

        'Now just write the finalstring variable to INI file...
        My.Computer.FileSystem.WriteAllText(file, finalstring, False)


    End Sub

Module Module1
    Public Function ReadIniValue(ByRef INIpath As String, ByRef KEY As String, ByRef Variable As String) As String
        Dim NF As Short
        Dim Temp As String
        Dim LcaseTemp As String
        Dim ReadyToRead As Boolean

AssignVariables:
        NF = FreeFile
        ReadIniValue = ""
        KEY = "[" & LCase(KEY) & "]"
        Variable = LCase(Variable)

EnsureFileExists:
        FileOpen(NF, INIpath, OpenMode.Binary)
        FileClose(NF)
        SetAttr(INIpath, FileAttribute.Archive)

LoadFile:
        FileOpen(NF, INIpath, OpenMode.Input)
        While Not EOF(NF)
            Temp = LineInput(NF)
            LcaseTemp = LCase(Temp)
            If InStr(LcaseTemp, "[") <> 0 Then ReadyToRead = False
            If LcaseTemp = KEY Then ReadyToRead = True
            If InStr(LcaseTemp, "[") = 0 And ReadyToRead = True Then
                If InStr(LcaseTemp, Variable & "=") = 1 Then
                    ReadIniValue = Mid(Temp, 1 + Len(Variable & "="))
                    FileClose(NF) : Exit Function
                End If
            End If
        End While
        FileClose(NF)
    End Function

End Module

Dim objIniFile As New IniFile(Application.StartupPath & "\data.ini")

objIniFile.WriteString("Settings", "Whatever", Textbox1.Text)
        objIniFile.WriteString("Settings", "I need to pee", Textbox2.Text)

Textbox1.Text.Text = ReadIniValue(Application.StartupPath & "\data.ini", "Settings", "Whatever")
        Textbox2.Text = ReadIniValue(Application.StartupPath & "\data.ini", "Settings", "I need to pee")

Public Class IniFile
    ' API functions
    Private Declare Ansi Function GetPrivateProfileString _
      Lib "kernel32.dll" Alias "GetPrivateProfileStringA" _
      (ByVal lpApplicationName As String, _
      ByVal lpKeyName As String, ByVal lpDefault As String, _
      ByVal lpReturnedString As System.Text.StringBuilder, _
      ByVal nSize As Integer, ByVal lpFileName As String) _
      As Integer
    Private Declare Ansi Function WritePrivateProfileString _
      Lib "kernel32.dll" Alias "WritePrivateProfileStringA" _
      (ByVal lpApplicationName As String, _
      ByVal lpKeyName As String, ByVal lpString As String, _
      ByVal lpFileName As String) As Integer
    Private Declare Ansi Function GetPrivateProfileInt _
      Lib "kernel32.dll" Alias "GetPrivateProfileIntA" _
      (ByVal lpApplicationName As String, _
      ByVal lpKeyName As String, ByVal nDefault As Integer, _
      ByVal lpFileName As String) As Integer
    Private Declare Ansi Function FlushPrivateProfileString _
      Lib "kernel32.dll" Alias "WritePrivateProfileStringA" _
      (ByVal lpApplicationName As Integer, _
      ByVal lpKeyName As Integer, ByVal lpString As Integer, _
      ByVal lpFileName As String) As Integer
    Dim strFilename As String

    ' Constructor, accepting a filename
    Public Sub New(ByVal Filename As String)
        strFilename = Filename
    End Sub

    Public Sub WriteString(ByVal Section As String, _
      ByVal Key As String, ByVal Value As String)
        ' Writes a string to your INI file
        WritePrivateProfileString(Section, Key, Value, strFilename)
        Flush()
    End Sub

    Public Sub WriteInteger(ByVal Section As String, _
      ByVal Key As String, ByVal Value As Integer)
        ' Writes an integer to your INI file
        WriteString(Section, Key, CStr(Value))
        Flush()
    End Sub

    Public Sub WriteBoolean(ByVal Section As String, _
      ByVal Key As String, ByVal Value As Boolean)
        ' Writes a boolean to your INI file
        WriteString(Section, Key, CStr(CInt(Value)))
        Flush()
    End Sub

    Private Sub Flush()
        ' Stores all the cached changes to your INI file
        FlushPrivateProfileString(0, 0, 0, strFilename)
    End Sub

End Class