Setting a file to upload inside the WebBrowser component

[stewmath]

im using a loop to enter text into text boxes using the following:

Private Sub FillTextbox(ByVal sElement As String, ByVal sString As String)
        Dim z As Integer = 0

        While Not SiteIsLoaded
            Application.DoEvents()
        End While

            For Each Form As HtmlElement In webby.Document.Forms
                Dim el2 As HtmlElementCollection = webby.Document.Forms(z).GetElementsByTagName("input")
                For Each curElement As HtmlElement In el2
                    Dim ControlName As String = curElement.GetAttribute("name").ToString
                    If ControlName = sElement Then  'Add
                        curElement.InnerText = sString
                    End If
                Next
                z = z + 1
            Next

    End Sub

But i have a file property, the website has the following code

<input type="file" size="30" name="torrent" id="torrent"/>

How can i use a loop similar to above to insert the filename