Pessoal preciso mais uma vez da ajuda de vcs.

 

imaginem que tenho duas variaveis declaradas dessa forma:

dim nome() string

dim numero() as string

 

ae tenho um txt que esta nessa disposição.

 

paulo;21356546

joao;57957568

henrique;65449876

joel;12345987

 

vamos la...

 

Preciso colocar cada nomem dentro do array nome e cada numero dentro do array numero...como faço isso....importante...não se preocupem com a abertura dos dados no txt etc..pois isso eu ja faço...só preciso saber como faço isso com as duas "colunas" vlw...e um forte abraço a todos...

 

 

 

Dim nome() As String, numero() As String

Private Sub Form_Load()
Dim parte As Variant
Dim n As Long, l As Long
Dim nm As Long, no As Long
Dim InLine As String
f = FreeFile
Open "c:\teste.txt" For Input As #f
Do While Not EOF(f)
    Line Input #f, InLine
    parte = Split(InLine, ";")
For l = 0 To UBound(parte)
If l = 0 Then
nm = nm + 1
ReDim Preserve nome(nm) As String
nome(nm) = parte(l)
Else
no = no + 1
ReDim Preserve numero(no) As String
numero(no) = parte(l)
End If
Next l
Loop
Close #f
End Sub