You could try this
If e.PropertyName = GetPropertyName(Function() Customer.FirstName) Then
End If
Function:-
Public Function GetPropertyName(Of T)(ByVal expression As Expressions.Expression(Of Func(Of T))) As String
Dim memberExpression As Expressions.MemberExpression = DirectCast(expression.Body, Expressions.MemberExpression)
Return memberExpression.Member.Name
End Function
Let me know if this works, as this is off the top of my head!