Times tables sendkey type

Set WshShell = WScript.CreateObject("WScript.Shell")
Dim TableNumber, TableLength, VarTableNumber, VarTableLength, TypingSpeed

VarTableNumber = Inputbox("What Table Do You Want To work To?")
VarTableLength = Inputbox("What Number In Each Table Do You Want To Count To?")
TypingSpeed = Inputbox("How Fast Do You Want It To Type? (In Miliseconds)")

If MsgBox("Output To A Specific Window And Not Notepad?", VbYesNo, "Question") = VbYes Then
Msgbox "Give Target Window Focus Now", vbSystemModal
Else
WshShell.Run "Notepad", 9
End If

WScript.Sleep 1000

For TableNumber = 1 To VarTableNumber
    For TableLength = 1 to VarTableLength
        WshShell.SendKeys TableNumber
        WScript.Sleep TypingSpeed
        WshShell.SendKeys " "
        WScript.Sleep TypingSpeed
        WshShell.SendKeys "x"
        WScript.Sleep TypingSpeed
        WshShell.SendKeys " "
        WScript.Sleep TypingSpeed
        WshShell.SendKeys TableLength
        WScript.Sleep TypingSpeed
        WshShell.SendKeys " "
        WScript.Sleep TypingSpeed
        WshShell.SendKeys "="
        WScript.Sleep TypingSpeed
        WshShell.SendKeys " "
        WScript.Sleep TypingSpeed
        WshShell.SendKeys TableNumber * TableLength
        WScript.Sleep TypingSpeed
        WshShell.SendKeys "{ENTER}"
        WScript.Sleep TypingSpeed
    next
    WshShell.SendKeys "-"
    WScript.Sleep TypingSpeed
    WshShell.SendKeys "-"
    WScript.Sleep TypingSpeed
    WshShell.SendKeys "-"
    WScript.Sleep TypingSpeed
    WshShell.SendKeys "{ENTER}"
    WScript.Sleep TypingSpeed
next