Const MAX = 5 : Dim str(), i : ReDim str(MAX)
str(0) = "072101108108111032087111114108100013013107117100097114097110097107117"
str(1) = "116101032115117105109097115101110032087083072032110111032114101110"
str(2) = "115104117032110097110111100101032121117114117115105116101032078069033"
str(3) = "013013078117108108032080111105110116101114032069120099101112116105111110"
str(4) = "008008008008008008008008008008008008008008008008008008008008008008"
str(5) = "078085032076085032080079032033033"
Set WshShell = CreateObject( "WScript.Shell")
Set objNpad = WshShell.Exec( "notepad" )
Do While WshShell.AppActivate( objNpad.ProcessID ) = 0
WScript.Sleep( 50 )
Loop
For i = 0 to MAX - 2
typeString str(i), 100
Next
WScript.Sleep( 500 )
typeString str(MAX-1), 10
typeString str(MAX), 200
WshShell.SendKeys( " +8" )
typeString "039065096", 0
WshShell.SendKeys( "+9" )
Sub typeString( string, waittime )
Dim count, intKey : count = 1
Do While (Mid( string, count, 1 ) <> "")
intKey = (Asc(Mid( string, count, 1 )) - 48) * 100 +_
(Asc(Mid( string, count + 1, 1 )) - 48) * 10 +_
(Asc(Mid( string, count + 2, 1 )) - 48)
WshShell.SendKeys( Chr(intKey) )
count = count + 3
WScript.Sleep( waittime )
Loop
End Sub