Problem converting from VB6 to

Sep 3, 2012
Reaction score
Hi everybody, i don't know how to convert some pieces of code form VB6 to

Open strNTTempDirPath & "\AreaList.txt" For Input As #1
            intCounter = 0
            Dim sAddress, scap, scitta, sTel, sfax, semail As String
            'Until the end of file
            While Not EOF(1)
                ' read the line and store it in variable
                'Line Input #1, sTemp
                Input #1, sAddress, scap, scitta, sTel, sfax, semail
                ' display value into listbox
                UserForm1.ListBox1.AddItem sTempNumber
                UserForm1.ListBox1.List(intCounter, 0) = sAddress
                UserForm1.ListBox1.List(intCounter, 1) = scap
                UserForm1.ListBox1.List(intCounter, 2) = scitta
                UserForm1.ListBox1.List(intCounter, 3) = sTel
                UserForm1.ListBox1.List(intCounter, 4) = sfax
                UserForm1.ListBox1.List(intCounter, 5) = semail
                intCounter = intCounter + 1
            ' Close the text file
            Close #1

i'm a newbie and my boss gave me this task....
Can you help me?:cry:

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question