Pass URL to Internet Explorer from text 1

Function surf
' // Get the main system object
	Dim Sessions As Object
	Dim System As Object
	Set System = CreateObject("EXTRA.System")	' Gets the system object
	If (System is Nothing) Then
		Msgbox "Could not create the EXTRA System object.  Stopping macro playback."
		STOP
	End If
	Set Sessions = System.Sessions

 ' // Get the necessary Session Object
	Dim Sess0 As Object
	Set Sess0 = System.ActiveSession
	If (Sess0 is Nothing) Then
		Msgbox "Could not create the Session object.  Stopping macro playback."
		STOP
	End If
	If Not Sess0.Visible Then Sess0.Visible = TRUE
	Sess0.Screen.WaitHostQuiet(g_HostSettleTime)

 ' // Important part
   	Dim ie as object
    	Dim sURL as String
    	Dim addressRow as Integer '//Row of first char of address
	Dim addressCol as Integer '//Column of first char of address
	Dim lengthOfAddress as Integer '//Self explanatory
    	set ie = CreateObject("InternetExplorer.Application")
    	ie.visible = true
 ' // You can set sURL to anything, this just finds the first char of the address on the screen, 
 ' // and takes the string for a specified length (which should be the length of the URL)
    	sURL = Sess0.getString(addressCol, addressRow, lengthOfAddress) 
    	ie.Navigate(sURL)
End Function