[RESOLVED] dropping text

How do i make the code drop the first 10 characters from each line of the source txt?

Code:

---

Open "source.txt" For Input As #1
Open "destination.txt" For Output As #2
Do While Not EOF(1)
    Line Input #1, LineOfText
            Print #2,
    Print #2, LineOfText
Loop

Close #1
Close #2

---

Code:

---

Dim sLineOfText As String
 Dim sLineOfTextShortened As String
    sLineOfText = "1234567890abcdefgh"
    sLineOfTextShortened = Mid(sLineOfText, 11)

---

In the case of the code in the OP

Code:

---

Print #2, Mid$(LineOfText,11)

---

..... how do I get it to drop the first 10 characters of each line?
please explain i don't know what that last post means Datamiser -_-

Perhaps it would be a good idea to look up the Mid() function rather than having me type out an explaination

simple and to the point the mid fuction has been a life saver