Read text file in VB.6

Ketika saya membuat koneksi jaringan dengan WinSock,Eee kita butuh baca data yang tersimpan di file text gini kodingnya :

Open App.Path & "\chat.txt" For Input As #1

Do While Not EOF(1)
    Line Input #1, a
    sett = Split(a, "=")
   
    If UBound(sett) > 0 Then
       
    Select Case sett(0)
        Case "HOST"
            Host_txt = sett(1)
        Case "LPORT"
            Lokal_txt = sett(1)
        Case "RPORT"
            Relay_txt = sett(1)
    End Select
       
    End If
   
Loop