Create links in msgbox in vb

Set objShell = CreateObject("Wscript.Shell")

intMessage = MsgBox("Sorry, but you have an out-of-date database version.  Please redownload via the batch file to ensure that you have the latest version. Contact the administrator of this database or your manager if you need help." & vbCr _
        & vbCr _
        & "Your current database version is " & CurrentVer & " which may be out of date. The current database version prescribed on the network share is " & FileVer & ". They must match in order for you to proceed." & vbCr _
        & vbCr _
        & "Would you like to learn more about CSC self-help instructions on how to reload the most current version of the PRF Intake Tool to your computer?", _
        vbYesNo, "There is a problem...")

If intMessage = vbYes Then
    objShell.Run ("http://www.OurSite.com/online/Solutions/Search_Results.asp?opsystem=7&keywords=PRF+Intake+Tool&Category=")
Else
    Wscript.Quit
End If

Source: stackoverflow.com

Similar codes

1 vote188 views1 answer
Excel vba convert cells(1,1) into A1 and vice versa
VBA
1 vote151 views1 answer
Vba exit do while
VBA
0 vote200 views1 answer
System.Runtime.InteropServices.COMException: 'Call was rejected by callee. (Exception from HRESULT: 0x80010001
VBA
1 vote193 views1 answer
Excel vba saveas force overwrite
VBA
0 vote199 views1 answer
Convert Seconds to HH:MM:SS in VB.Net
VBA
0 vote190 views1 answer
Open application from vbnet
VBA
2 votes207 views1 answer
Excel vba check if string entirely numeric
VBA
22 votes264 views1 answer
Excelvba check for directory
VBA
3 votes196 views1 answer
Vba make long from two shorts
VBA
0 vote190 views1 answer
Vba find sub dictionary
VBA