Laufzeitfehler abfangen

Public Function GetLinkStatus(ByVal strUrl As String) As Long
Dim oHttp As Object
Dim Antw As Variant
If strUrl  "" Then
If Not VBA.Left(strUrl, 7) = "http://" Then
strUrl = "http://" & strUrl
End If
Set oHttp = CreateObject("Msxml2.XMLHTTP")
On Error Resume Next
oHttp.Open "GET", strUrl, False
On Error GoTo errorhandler:
oHttp.Send
On Error GoTo errorhandler:
GetLinkStatus = oHttp.Status
Set oHttp = Nothing
On Error GoTo 0
End If
errorhandler:
If Err.Number = 70 Then
Antw = MsgBox("Zugriff auf die Seite " & strUrl & " verweigert", vbOKCancel, " _
Laufzeitfehler")
Err.Clear
Else
Antw = MsgBox("Fehler " & Err.Number, vbOKOnly, "Laufzeitfehler")
End If
End Function

.....
lLinkStatus = GetLinkStatus(strInternetAdr)
If lLinkStatus = 200 Then
Else
End If