If you need the hyperlink to be dynamic (and that sounds like what you are getting at) try:
Private Sub myButton_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
myButton.HyperlinkAddress = "http://www.mysite.com/page.html?variablename=" &...