iedrs is a custom built dll which requires the following parameters:
Dim edrs
Set edrs = CreateObject("RoutingService.EDRSccw")
Function ExecuteFile(appName As String, appErrorText As String, appID As String, filesToRoute() As Variant, cameFrom As String) As Boolean