Windows API VisualBasic Script

Sub RunCharMap()
    On Error Resume Next
    Program = "notepad.exe"
    TaskID = Shell(Program, 1)
    If Err <> 0 Then
        MsgBox "Cannot start " & Program, vbCritical, "Error"
    End If
End Sub