Windows API VisualBasic Script

Sub CellToDialer()
    Appname = "Dialer"
    AppFile = "Dialer.exe"
    On Error Resume Next
    AppActivate (Appname)
    If Err <> 0 Then
        Err = 0
        TaskID = Shell(AppFile, 1)
        If Err <> 0 Then MsgBox "Can't start " & AppFile
    End If
    Application.SendKeys "%n" & "123-1234123123-1234123", True
    Application.SendKeys "%d"
End Sub