Can I add voice recognition to my program?

'-------------------------------api declares-----------------------------------
Private Declare Function ShellExecute Lib "shell32.dll" _
        Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, _
        ByVal lpFile As String, ByVal lpParameters As String, _
        ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
'-------------------------------------------------------------------------------

Private Sub Command1_Click()
    Select Case Command1.Caption
    Case "Disable"
        DirectSR1.Deactivate
        Command1.Caption = "Enable"
        Label1 = "Disabled"
    Case "Enable"
        DirectSR1.Activate
        Command1.Caption = "Disable"
        Label1 = "Ready"
    End Select
End Sub

Private Sub DirectSR1_PhraseFinish(ByVal flags As Long, ByVal beginhi As Long, _
        ByVal beginlo As Long, ByVal endhi As Long, ByVal endlo As Long, _
        ByVal Phrase As String, ByVal parsed As String, ByVal results As Long)

        MsgBox "in the phrasefinish"

        Dim sFile As String
        Dim noth As Long

        MsgBox Phrase, , "The Phrase is: "

        Select Case Phrase

        Case "Notepad"
            sFile = "\system32\notepad.exe"
            noth = ShellExecute(0, "OPEN", Environ("SystemRoot") & sFile, "", "", 1)
        Case "Volume"
            sFile = "\system32\sndvol32.exe"
            noth = ShellExecute(0, "OPEN", Environ("SystemRoot") & sFile, "", "", 1)

        Case "Media Player:"
            sFile = "C:\Program Files\Windows Media Player\mplayer2.exe"

            noth = ShellExecute(0, "OPEN", sFile, "", "", 1)

        End Select

                If Phrase <> "" Then
                    Label1.Caption = "Matched word is " & Phrase
                Else
                    Label1.Caption = "No word matched"
                End If
End Sub

Private Sub Form_Load()
Dim totaldata As String
  'define configuration
  '[Grammer], set language to english (1033)
  '[<Start>], define the words we are looking for
  totaldata = "[Grammar]" & vbCrLf & _
                "langid = 1033" & vbCrLf & _
                "type=cfg" & vbCrLf & _
                "[<Start>]" & vbCrLf & _
                "<start>=Notepad" & vbCrLf & _
                "<start>=Volume" & vbCrLf & _
                "<start>=Media Player" & vbCrLf

  DirectSR1.GrammarFromString (totaldata)
  DirectSR1.Activate
End Sub

Private Sub Form_Load()
Dim retval As Integer

DirectSR.GrammarFromString "[Grammar]" + vbNewLine + _
                          "type=cfg" + vbNewLine + _
                          "[<start>]" + vbNewLine + _
                          "<start>=Web Browser" + vbNewLine + _
                          "<start>=Notepad" + vbNewLine + _
                          "<start>=Visual Basic" + vbNewLine + _
                          "<start>=Calculator" + vbNewLine

DirectSR.Activate
End Sub

Private Sub DirectSR_PhraseFinish(ByVal flags As Long, ByVal beginhi As Long, ByVal beginlo As Long, ByVal endhi As Long, ByVal endlo As Long, ByVal Phrase As String, ByVal parsed As String, ByVal results As Long)
txtCommand.Text = Phrase

Select Case Phrase
    Case Is = "Launch Notepad"
    retval = Shell("C:\WINDOWS\notepad.exe")
    Case Is = "Launch Web Browser"
    retval = Shell("C:\Program Files\Internet Explorer\IEXPLORE.EXE")
    Case Is = "Launch Visual Basic"
    retval = Shell("C:\Program Files\Microsoft Visual Studio\VB98\VB6.exe")
    Case Is = "Launch Calculator"
    retval = Shell("C:\WINDOWS\calc.exe")

End Select
End Sub