Not sure, but it looks like the InstantVB translation may be missing a pair of parentheses:
THIS:
QueryFilters.AddFilter(Of User)(Function(q) (q.Where(Function(u) u.UserName = Principal.Identity.Name)))
NOT THIS:
QueryFilters.AddFilter(Of User)(Function(q) q.Where(Function(u) u.UserName = Principal.Identity.Name))