VBA doing a Vlookup and then a vbyesno box - vba

Question

I have written a VBA that does a Vlookup. It is looking up claim numbers and each caim has a hyperlink in column 3 of the range that leads to the details of the claim, pics etc. The Vlookup returns the relevant hyperlink in column 3 fine, but then I want a vbyesno box to give the user the option to be directed to the hyperlink returned by the Vlookup and view the claim details.
I have managed to get it working OK to direct people to a web address (I have used google in my VBA as as example) Is it possible to change my VBA slightly so instead of google it will change the hyperlink depending on the result of the vlookup.
This is the VBA i have written
Sub check()
On Error GoTo MyerrorHandler:
Dim claim_number As String
Dim here As String
claim_number = InputBox("please enter claim number")
If Len(claim_number) > 0 Then
Set myRange = Range("claims")
Set objShell = CreateObject("Wscript.Shell")
here = Application.WorksheetFunction.VLookup(claim_number, myRange, 3, False)
intMessage = MsgBox("The claim has been partly investigated by Ali. Would"
"you like to view the details of the claim.", _
vbYesNo, "Great news Lee")
If intMessage = vbYes Then
objShell.Run ("www.google.com")
Else
Wscript.Quit
End If
Else
MsgBox "You didn't enter a claim number"
End If
Exit Sub
MyerrorHandler:
If Err.Number = 1004 Then
MsgBox "Claim has not been invsetigated"
End If
End Sub

Answer 1

Thanks for the help guys. I've managed to resolve the issue.
I just used ThisWorkbook.FollowHyperlink (here)
as shown below
Sub check()
On Error GoTo MyerrorHandler
Dim claim_number As String
Dim here As String
claim_number = InputBox("Please enter the claim number")
If Len(claim_number) > 0 Then
Set myrange = Range("claims")
Set objShell = CreateObject("Wscript.Shell")
here = Application.WorksheetFunction.VLookup(claim_number, myrange, 3,
False)
intMessage = MsgBox("This claim has been investigated by Ali. Would you
like to view the details?", _
vbYesNo, "GREAT NEWS LEE")
If intMessage = vbYes Then
ThisWorkbook.FollowHyperlink (here)
Else
Wscript.Quit
End If
Else
MsgBox "You didn't enter a claim number"
End If
Exit Sub
MyerrorHandler:
If Err.Number = 1004 Then
MsgBox "This claim has not been investigated"
End If
End Sub