I'm having trouble using VBA to dial a number from an Excel Cell in XP

Prior to XP I user John Lacher's code: (updated to new folder location in XP
-C:\Program Files\Windows NT)

Sub AutoDialer()
Dim strDial As String
Dim intReturn As Integer
strDial = ActiveCell.EntireRow.Columns("B").Value
intReturn = Shell("C:\Program Files\Windows NT\Dialer.exe", 1) '\ verify
correct path
Application.SendKeys ("{F5}" & strDial & "~")

End Sub

Any Ideas on what's missing?