Delegates as parameters in VB.NET

Public Sub CheckDifference(ByVal A As Integer, ByVal B As Integer)
  If (B - A) > 5 Then
    log.ErrorFormat("Difference ({0}) is outside of acceptable range.", (B - A))
  End If
End Sub

Public Sub CheckDifference(ByVal A As Integer, ByVal B As Integer, "Some delegate info here")
  If (B - A) > 5 Then
    **delegateinfo**.Invoke("Difference ({0}) is outside of acceptable range.", (B - A))
  End If
End Sub

Public Delegate Sub Format(ByVal value As String)

Public Sub CheckDifference(ByVal A As Integer, _
                           ByVal B As Integer, _
                           ByVal format As Format)
    If (B - A) > 5 Then
        format.Invoke(String.Format( _
        "Difference ({0}) is outside of acceptable range.", (B - A)))
    End If
End Sub

CheckDifference(Foo, Bar, AddressOf log.WriteWarn)

CheckDifference(Foo, Bar, AddressOf log.WriteError)

Private Delegate Sub LogErrorDelegate(txt as string, byval paramarray fields() as string)

Private _LogError
Public Property LogError as LogErrorDelegate
Get
return _LogError
End Get
Set(value as LogErrorDelegate)
_LogError = value
End Set
End Property

Dim led as New LogErrorDelegate(AddressOf log.ErrorFormat)

Public Delegate errorCall(ByVal error As String, Params objs As Objects())
CheckDifference(10, 0, AddressOf log.ErrorFormat)