How to Spech by "Text to Spech" in VB Project

Option Explicit

Private Sub Command1_Click()
Dim speech
speech = "Arvind Nahar"
Dim ObjTextToSpeach As Object
Set ObjTextToSpeach = CreateObject("SAPI.spVoice")

ObjTextToSpeach.speak speech
End Sub