Listbox - ajuda por favor

[tabarra]

então, eu estou tentando carregar o conteúdo de uma textbox multiline para dentro de uma listbox

se fosse de um arquivo o comando seria:

    Dim MyString As String
    On Error Resume Next
    Open Directory$ For Input As #1
    While Not EOF(1)
        Input #1, MyString$
        DoEvents
        TheList.AddItem MyString$
    Wend
    Close #1

como ficaria o comandoo para por tudo que está no text3.text dentro da list2 ?

agradecido

(com urgência por favor)

[jpaulino]

Podes fazer assim:

Dim str() As String
Dim x As Integer
str = Split(Me.Text1.Text, vbNewLine)
For x = 0 To UBound(str)
   Me.List1.AddItem str(x)
Next x

[jpaulino]

Mais urgente que isto não sei :-)

[tabarra]

uiaaa !!!!!!!

salve!

omg

super rápido e salvou minha vida!

obrigado, funcionou perfeitamente