Pass down parameter from Web

Hi i need help on this problem.

I got an excel spreadsheet with textbox to let user input text.
However, i need to enhance it in such a way that when the website link is clicked (e.g http://www.web.com/data.jsp?do=12345)
The parameter do(12345) will be automatically transfer to the textbox of the excel spreadsheet.

Can anyone help me on this?
Thank you

One way, using the FollowHyperlink event of the worksheet:

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)

If InStr(Target.Address, "?do=") Then
TextBox1.Text = "do(" & Right(Target.Address, Len(Target.Address) - InStrRev(Target.Address, "=")) & ")"
End If

End Sub

hth

HI
Thank for your respond. However i faced another dilemmas.
I know the solution provide by you can only work within excel.


But how do i make it in such a way that i can pass down the parameter from the internet explorer.

For example when i click the link from the website(open at Internet Explorer), it will open up the excel and fill in the parameter into the excel textbox.