VBScript para ler linhas específicas e extrair caracteres e armazená-los como uma variável

Eu tenho um script VB que lê a linha 11 de um arquivo de texto. No entanto, a partir dessa linha, preciso extrair caracteres de 48 a 53 e salvá-lo como uma variável. Depois disso, gostaria de usar essa variável e usá-la em um URL da web. Exemplo abaixo:

O conteúdo do arquivo szCPUSer.dat se parece com isto:

O roteiro que tenho lê a décima linha

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

Eu preciso do script para extrair 03187 da linha 11 do que armazená-lo como uma variável SerNum. Depois disso, eu gostaria de usar esse número extraído em um URL, por exemplo:

http://seriallookup.com/serial=SerNum

questionAnswers(2)

yourAnswerToTheQuestion