Скрипт VBS⁠⁠

Всем здравствуйте. Я написал программу, с помощью которой можно переходить в диалог с рандомным человеком в VK.
Проблема: сгенерированный id не переходит в строку поиска.
iURL = "https://vk.com/im?sel=" Надо чтобы сгенерированный id был написан после слова "sel=".
Весь код:

MsgBox "Random chat", 64, "Application for VK"
Set y = CreateObject ("Scripting.FileSystemObject")
Do
a="hidden number:"
Randomize
Number = Int ((RND * 999999998) +1)
MsgBox a&" "&Number , 64, "Application for VK"
Style = vbOKOnly
Dim oShell
Set oShell = CreateObject ("WSCript.shell")
Dim objShell
Set objShell = CreateObject("Shell.Application")
iURL = "https://vk.com/im?sel="
Call objShell.ShellExecute("C:\Program Files\Mozilla Firefox\firefox.exe", iURL, "", "", 1)
WScript.Quit
Loop