Web adresleri nasıl açılır

'Asagidaki kodu bir kontrolun click event'ine yaz
Dim iRet As Long 
Dim Cevap As Integer

Cevap = MsgBox("www.atbr.work  adresini açmak istiyor musunuz?", vbInformation + vbYesNo, "www.atbr.work")

Select Case Cevap
Case vbYes
iRet = Shell("start.exe http://www.atbr.work", vbNormal)
Case vbNo
Exit Sub
End Select