How to write myConnection(id)

[clif]

Option Explicit
Dim oHtml, myData

Sub abc()
    MsgBox myFunction(0)
End Sub

Function myFunction(id)
    Call myConnection(id)
    Set myData = oHtml.getElementById("lfHead")(0).getElementsByTagName("IfRowNo3")(0).getElementsByTagName("td")(1)
    myFunction = myData.innerText
End Function

Public Sub myConnection(id)
Dim ie As InternetExplorer
Dim oHtml As HTMLDocument
Set ie = New InternetExplorer
Set oHtml = New HTMLDocument
ie.Visible = True
With CreateObject("WINHTTP.WinHTTPRequest.5.1")
        .Open "GET", "http://example.aspx", False
        .send
        oHtml.body.innerHTML = .responseText
    End With
End Sub

How to write myConnection(id). Thank you very much. It seems do not work!