Run Batch file based on Recieved e-mail Subject

Hi there guys

I was wondering how i could run a batch file based on the subject in a newly received mail?

so far i have:

Private Sub Application_NewMail()
Dim MyMail As Outlook.MailItem

    If MyMail.Subject = "RUN SQL DAVE" Then
        Shell "D:\Documents and Settings\dmcginnis\Desktop\SR PROD LOGIN.Bat"
    End If

End Sub

any help is greatly appreciated

Cheers