Internet Transfer Control Help Again

OK I added the last line but it still does not work. Need help in completing this. Been at it all day.

Trying to figure out how it works. I want to be able to open this link
https://mycompany.com/directory/scri...&port=aportnum

When I click on the link it does what it is suppose to do (it works). I want to be able to execute or open this link when an event occurs
Here's a sample of the code.


dim strRemoteHost as string
dim strURLPath as string
dim RemotePort as Integer
dim strFormData as string
dim strUserName as string
dim strAction as string
dim strPortNum as string
dim strInput as string
strUserName = frmForm.username.text
strAction = frmForm.action.text
strPortNum = frmForm.PortNum.text
strRemoteHost = "https://mycompany.com"
strURLPath = "/directory/script.php3?"
RemotePort = 443
Inet1.RemotePort = RemotePort
Inet1.Protocol = icHTTPS
Inet1.RemoteHost = strRemoteHost
strFormData = "user=" & strUsername & "&action=" & strAction & "&port=" & strPortNum
strInput = Inet1.openURL(strRemoteHost & strURLPath & strFormdata)
text1.text = strInput



When I run this text1.text is "".
Remember I want to be able to open this link:
I want to be able to open this link
https://mycompany.com/directory/scri...&port=aportnum as if I clicked on it, because when I click on the link, it works. I want to be able to make this work when an event happens.
Any ideas as to why this does not work? Should I use Inet1.execute?
Please show me example of how to make this work.
I'm somewhat new at this.
[email protected]