Eu uso api.

 

Function write_ini(ByVal Secao$, ByVal chv$, ByVal variavel$) As String
  'USADA P/ ESCREVER O ARQUIVO CONFIG.INI SETADO NA CONST Arquivo
  WritePrivateProfileString ByVal Secao, ByVal chv$, ByVal variavel$, ByVal Arquivo
End Function

 

Function get_ini(Secao, Chave$) As String
  'USADA P/ BUSCAR O VALOR DO ARQUIVO CONFIG.INI
  Dim Retorno As String
  Dim Aux As Integer
 
  Retorno = Space(128)
  Aux = GetPrivateProfileString(ByVal Secao, ByVal Chave$, "####", Retorno, Len(Retorno), ByVal Arquivo)
  get_ini = Left$(Retorno, Aux)
End Function

na realidade não tem muito segredo, veja um exemplo básico

 

  Dim sArquivo As String, sLinha As String
  Dim iARQ As Integer
  Dim CAB As Boolean
 

   sArquivo = App.Path & "teste.TXT"
  If Right$(App.Path, 1) <> "\" Then
    sArquivo = App.Path & "\teste.TXT"
  End If

  'Verificando se o arquivo existe:
  If Dir$(sArquivo) = "" Then
    'O arquivo NÃO existe.
    MsgBox "O arquivo não existe!", vbExclamation, _
           "ATENÇÃO!!!"
    Exit Sub
  End If
  iARQ = FreeFile
  Open sArquivo For Input As iARQ

  'Verificando se o arquivo está em branco:
  If LOF(iARQ) = 0 Then
    'O arquivo está em branco.
    MsgBox "O arquivo está em branco!", vbExclamation, _
           "ATENÇÃO!!!"
    'Fecha o arquivo
    Close iARQ
    Exit Sub
  End If

  Do While Not EOF(iARQ) 'Enquanto ñ chegar ao fim do arq...
    'Pega a linha atual:
    Line Input #iARQ, sLinha

 

if slinha="[IP Address]" then

end if

 

if slinha="[Password]" then

  Loop
 
 Close iARQ

espero que você tenha entendido

 

até