Dave, check out the AATK some excellent examples in there. Here is a sample of one that I use.
Menu = 0
Cmd = 1
dim filename
Accelerator = 1
Key = 2
Scripting.AddTypeLibrary("MGCPCB.Application")
Set keyBindTables = Gui.Bindings("Document")
Gui.Bindings("Document").AddKeyBinding "V", "Edit->Place->Via", Menu, Accelerator
Scripting.DontExit = True ' Keep on running