BindFunction can't be used in the argument of an AddStrokeBinding method.
Therefore, please call another VBScript by an AddStrokeBinding method.
Set keyBindTables = Gui.Bindings("Document")
keyBindTables.AddStrokeBinding "147412369", "Run " & <Script Path>, 1
Thanks to Satoru from Japan for his quick and kind answer.