VBScript, aby odczytać określoną linię i wyodrębnić znaki i zapisać je jako zmienną

Mam skrypt VB, który odczytuje 11 wiersz z pliku tekstowego. Jednak z tej linii muszę wyodrębnić znaki od 48 do 53 i zapisać je jako zmienną. Po wykonaniu tej czynności chciałbym użyć tej zmiennej i użyć jej w adresie URL. Przykład poniżej:

Zawartość pliku szCPUSer.dat wygląda tak:

Skrypt, który przeczytałem, odczytuje 10. linię

Const ForReading = 1

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile("szCPUSer.dat", ForReading)

For i = 1 to 10
    objTextFile.ReadLine
Next

strLine = objTextFile.ReadLine
Wscript.Echo strLine

objTextFile.Close

Potrzebuję skryptu, aby wyodrębnić 03187 z 11 linii, a następnie zapisać go jako zmienną SerNum. po tym chciałbym użyć tego numeru wyodrębnionego w adresie URL, na przykład:

http://seriallookup.com/serial=SerNum

questionAnswers(2)

yourAnswerToTheQuestion