Webadresse nach Eingabe in Excel syntaktisch überprüfen

Function CheckSyntax(ByVal rngTarget As Range) As Boolean
    Set regex = CreateObject("vbscript.regexp")  
    regex.IgnoreCase = True
    regex.Pattern = "^https?://[\-A-Z0-9+&@#/%?=~_|$!:,.;]*[A-Z0-9+&@#/%=~_|$]$"  
    If Not regex.Test(rngTarget.Value) Then
        CheckSyntax = False
    Else
        CheckSyntax = True
    End If
    set regex = Nothing
End Function

Private Sub Worksheet_Change(ByVal Target As Range)
    'Range bei dem eine Änderung etwas bewirken soll  
    Set changeRange = ActiveSheet.Range("A1:A100")  
    If Not Application.Intersect(changeRange, Target) Is Nothing Then
        If Not CheckSyntax(Target) Then
            MsgBox "Die Webadresse hat die falsche Syntax", vbCritical  
            Application.EnableEvents = False
            Target.Value = ""  
            Application.EnableEvents = True
        End If
    End If
End Sub