Conversione c# to Vb.Net

public Post GetByID(int postID)
        {
            return ((List<Post>)Items).Find(
                delegate(Post item)
                {
                    return item.ID.Equals(postID);
                });
        }    

 Il codice sorgente non è stato renderizzato qui
perchè non c'è sufficiente spazio.
Clicca qui per visualizzarlo in una nuova finestra

    Public Function GetByID(ByVal personaID As Integer) As Persona
        For Each p As Persona In Me.Items
            If p.ID.Equals(personaID) Then
                Return p
                Exit Function
            Else
                Return Nothing
                Exit Function
            End If
        Next
        Return Nothing
    End Function

    Public Function GetID(ByVal postID As Integer) As Post
        Return DirectCast(items, List(Of Post)).Find(AddressOf SearchDelegate)
    End Function

    Public Function SearchDelegate(ByVal item As Post) As Boolean
        Return item.ID.Equals(1)
    End Function

Public Class PersonaCollection
Inherits System.Collections.ObjectModel.Collection(of Persona)
 Public Function GetByProviderUserKey(ByVal personaProviderUserKey As Guid) As Persona
        Dim comparatore As New MyBusinessObjectPredicate(personaProviderUserKey)
        Return DirectCast(Items, List(Of Persona)).Find(AddressOf comparatore.CompareKeys)
    End Function
End Class

Public Class MyBusinessObjectPredicate
    Private _providerUserKey As Guid
    Private _id As Integer
    Public Sub New(ByVal key As Guid)
        _providerUserKey = key
    End Sub
    Public Sub New(ByVal id As Integer)
        _id = id
    End Sub
    Public Function CompareKeys(ByVal obj As Persona) As Boolean
        Return (_providerUserKey = obj.ProviderUserKey)
    End Function
    Public Function CompareId(ByVal obj As Persona) As Boolean
        Return (_id = obj.ID)
    End Function