set wshshell = CreateObject("WScript.Shell")
line = inputBox("Which line do you want to mark?")
if not IsNumeric(line) then
MsgBox "You did not specify a number!"
WScript.Quit
else
line = Fix(line)
if line<1 then
MsgBox "Your line number is invalid!"
WScript.Quit
end if
end if
WScript.Sleep(200)
wshshell.SendKeys "^{HOME}"
for x=1 to line-1
wshshell.SendKeys "{DOWN}"
WScript.Sleep 10
next
wshshell.SendKeys "{HOME}"
wshshell.SendKeys "+{END}"