texttospeech.speak "hi, user." & command1.setfocus
setfocus( inputbox) .
setfocus
spkSpeak.Speak "You clicked button number " & btnNumbers(Index).Caption & "."

Select Case Index + 1
Case Is = 1
Shell Notepad, vbNormalNoFocus
......