leer archivo con delimitadores

[lokoman]

Hola!
Chequea el código:

Código vb:

Private Sub cmdPASS_Click()
    Dim DATA, ARREGLO() As String
    
    
    Open App.Path & "\PASS.TXT" For Input As #1
        Do While Not EOF(1)
            Line Input #1, DATA
            ARREGLO = Split(DATA, ":")
 
'EL ARREGLO(0) CONTIENE A "USUARIO1", "USUARIO2", "USUARIO3"
'EL ARREGLO(1) CONTIENE A "PASSWORD1", "PASSWORD2", "PASSWORD3"            
            MsgBox ARREGLO(0) & "," & ARREGLO(1)
        Loop
    Close #1
End Sub