RFC CALL can´t execute Functions module ??

[Schnuppi]

Hello everybody,

I have a problem with a Function module. The function module should open an link (it´s a Link of a Webdynpro Application).

I have the following constellation.

Bex Analyzer execute a RFC Call to open/execute the Function module. The Function module should open a URL (Webdynpro Application), but it doesn´t work.

I don´t know why. The Connection of the RFC Call is ok. I have tested the RFC with any Object´s and it works (He "answered").

What ist wrong in the Function Module, why can´t the FM open the URL??!

Simple Code of Function Module

CALL FUNCTION 'PRGN_GENER_EXECUTE_URL'
EXPORTING
NODE_DATA = 'url'.


The VBA Code for RFC

Sub Login()

Dim functionCtrl As Object
Dim sapConnection As Object
Dim theFunc As Object
Dim sReturn As Boolean
Dim l_export As String
Dim objQueryTab As Variant

Set functionCtrl = CreateObject("SAP.Functions")

Set sapConnection = functionCtrl.Connection

sapConnection.Client = "100"
sapConnection.user = "xy"
sapConnection.Language = ".."
sapConnection.SystemNumber = "xy"
sapConnection.ApplicationServer = "xy"
sapConnection.Language = "x"
sapConnection.codepage = "xy"
sapConnection.Destination = "xy"
sapConnection.System = "x"
sapConnection.SystemID = "......"
sapConnection.Password = "xy"
sapConnection.autologon = 1



If sapConnection.Logon(0, True) <> True Then
MsgBox "Keine Verbindung"

Else
Set theFunc = functionCtrl.Add("SS_RFC_URL_TEST")
objQueryTab = "200"
theFunc.Exports("I_PAR") = objQueryTab
sReturn = theFunc.call
If sReturn = True Then

objQueryTab = theFunc.Imports("E_PAR")

End If
sapConnection.logoff
End If
End Sub


----->E_PAR is the Exportparameter of the Function module
----->I_PAR is the Importparameter of the Function module

Thanks