With below small VBA code I can call a RIC from the IDN world:

Sub ShowRICInIDN(ByVal RIC As String)

Dim wshLink As Object
Set wshLink = CreateObject("WScript.Shell")
wshLink.Run "reuters://REALTIME/verb=FullQuote/ric=" & RIC
Set wshLink = Nothing
end sub

How can I open a EikonQuoteApp showing data from a different data source?