Una Ayudadita o una idea :D

[Daio_max]

ReigDidion esta excelente tu ejemplo, eso si, al ejecutarlo me saltaron algunos errores y mirando bien el codigo tuve que hace estas modificaciones para que me funcionara, espero no te moleste, y la verdad me sirvio mucho porque tambien estoy adentrandome en este tema..
un saludo
Dario

' La parte del USER

Dim User_Host As String() = LeerArchivoDeTexto(6).Split("=")
TextBox11.Text = User_Host(1)

Dim User_User As String() = LeerArchivoDeTexto(7).Split("=")
TextBox10.Text = User_User(1)

Dim User_Password As String() = LeerArchivoDeTexto(8).Split("=")
TextBox9.Text = User_Password(1)

Dim User_Database As String() = LeerArchivoDeTexto(9).Split("=")
TextBox8.Text = User_Database(1)

Dim User_Port As String() = LeerArchivoDeTexto(10).Split("=")
TextBox7.Text = User_Port(1)

' La parte del RECORD

Dim Record_Host As String() = LeerArchivoDeTexto(11).Split("=")
TextBox16.Text = Record_Host(1)

Dim Record_User As String() = LeerArchivoDeTexto(12).Split("=")
TextBox15.Text = Record_User(1)

Dim Record_Password As String() = LeerArchivoDeTexto(13).Split("=")
TextBox14.Text = Record_Password(1)

Dim Record_Database As String() = LeerArchivoDeTexto(14).Split("=")
TextBox13.Text = Record_Database(1)

Dim Record_Port As String() = LeerArchivoDeTexto(15).Split("=")
TextBox12.Text = Record_Port(1)

' Los otros 2 valores que faltan

Dim Super_User As String() = LeerArchivoDeTexto(16).Split("=")
TextBox17.Text = Super_User(1)

Dim Super_Item As String() = LeerArchivoDeTexto(17).Split("=")
TextBox18.Text = Super_Item(1)