Dim string
String1 ="2708"
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "cmd.exe /c echo "& String1 &"|clip",0, TRUE
x=msgbox(string1)


Dim string2
String2 ="8451"
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "cmd.exe /c echo "& String2 &"|clip",0, TRUE
x=msgbox(string2)




Dim string3
String3 ="0884"
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "cmd.exe /c echo "& String3 &"|clip",0, TRUE
x=msgbox(string3)




Dim string4
String4 ="B362"
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "cmd.exe /c echo "& String4 &"|clip",0, TRUE
x=msgbox(string4)


Dim string5
String5 ="8007"
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "cmd.exe /c echo "& String5 &"|clip",0, TRUE
x=msgbox(string5)



Message Box Keeps Moving and Showing Next Part Of Serial Number Which Auto Loads into Buffer
All You have to do is paste and press Message Box To get next set of 5 numbers....

Like For System Navigator V5 I use this Serial Number