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