Code:
If response = vbYes Then
                Open "adress.txt" For Binary As #1 Len = Len(Test300Record)
                Open "adress.tmp" For Binary As #2 Len = Len(Test500Record)
                Get #1, , Test300Record
                Do While Not EOF(1) ' Loop until end of file.
                    filpekare = LOF(2)
                    Test500Record.Name = Test300Record.Name
                    Test500Record.ID = filpekare
                    Put #2, filpekare + 1, Test500Record
                    Get #1, , Test300Record
                Loop
What is this code in visual basic 2005.