leer archivo con delimitadores

[KenMasters]

Tengo un archivo con lineas así :

usuario1:password1
usuario2:password2
usuario3:password3
..:..
..:..
..:..

lo que quiero es leer cada linea que esta delimitada por " : " para poder ejecutar otro procedimiento uno por uno.

[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