Generic sorter function C# to VB

Anyone want to try converting this to VB?

public class GenericSorter<T, PT>
{
    public IEnumerable<T> Sort(IEnumerable source, string sortExpression)
    {
        var param = Expression.Parameter(typeof(T), "item");

        var sortLambda = Expression.Lambda<Func<T, PT>&开发者_StackOverflow社区gt;(Expression.Convert(Expression.Property(param, sortExpression), typeof(PT)), param);

        return source.OfType<T>().AsQueryable<T>().OrderBy<T, PT>(sortLambda);
    }

    public IEnumerable<T> Sort(IEnumerable<T> source, string sortExpression)
    {
        var param = Expression.Parameter(typeof(T), "item");

        var sortLambda = Expression.Lambda<Func<T, PT>>(Expression.Convert(Expression.Property(param, sortExpression), typeof(PT)), param);

        return source.AsQueryable<T>().OrderBy<T, PT>(sortLambda);
    }
}

This is as far as I got...

Public Class GenericSorter(Of T, PT)
    Public Function Sort(ByVal source As IEnumerable, ByVal sortExpression As String) As IEnumerable(Of T)
        Dim param = Expression.Parameter(GetType(T), "item")

        Dim sortLambda = Expression.Lambda(Of Func(Of T, PT))(Expression.Convert(Expression.[Property](param, sortExpression), GetType(PT)), param)
        Dim s As IEnumerable(Of T) = source.OfType(Of T).AsQueryable().OrderBy(Of T, PT) (Of sortLambda)

        Return s
    End Function

It is supposed to sort any type of object. Taken from here

DeveloperFusions's converter (here) returned this:

Public Class GenericSorter(Of T, PT)
    Public Function Sort(source As IEnumerable, sortExpression As String) As IEnumerable(Of T)
        Dim param = Expression.Parameter(GetType(T), "item")

        Dim sortLambda = Expression.Lambda(Of Func(Of T, PT))(Expression.Convert(Expression.[Property](param, sortExpression), GetType(PT)), param)

        Return source.OfType(Of T)().AsQueryable(Of T)().OrderBy(Of T, PT)(sortLambda)
    End Function

    Public Function Sort(source As IEnumerable(Of T), sortExpression As String) As IEnumerable(Of T)
        Dim param = Expression.Parameter(GetType(T), "item")

        Dim sortLambda = Expression.Lambda(Of Func(Of T, PT))(Expression.Convert(Expression.[Property](param, sortExpression), GetType(PT)), param)

        Return source.AsQueryable(Of T)().OrderBy(Of T, PT)(sortLambda)
    End Function
End Class

Its probably worth a try.