Macro script not working

[Anonymous]

Hi,

Can someone help me with the below script that is not working and I cannot figure out why??

The first message box came out but after that nothing more happens.

Sub UpdateCRCOutletCode

    Dim myDIS_DistributorCode, myDIS_OutletCode, myCRC_Outlet_ID
    Dim tmpKey
    Dim objCellFound
   
    myDIS_DistributorCode = ActiveDocument.Variables("vSelectedDistributorCode").GetContent().String
    myDIS_OutletCode = ActiveDocument.Variables("vSelectedOutletID").GetContent().String
    myCRC_Outlet_ID = ActiveDocument.Variables("vSelectedCRCOutletID").GetContent().String

    MsgBox(myDIS_DistributorCode)

   Dim objShell

   Set objShell = Wscript.CreateObject("WScript.Shell")

    strVBS = "C:\Users\kohN01\Documents\CIS\TWN\CRC Replacement\Conceptual Solution Testing\Test.vbs"
    objShell.Run strVBS & " " & myDIS_DistributorCode & " " & myDIS_OutletCode & " " & myCRC_Outlet_ID

    Set objShell = Nothing

End sub

Please help. Thx.

rgds,
Nickson