Conversion Linq result to object type in vb.net - vb.net

Question

I need vb.net syntax of below answer(given in c#)-
How can I convert Linq results to DTO class object without iteration
I have tried converting to vb.net at this link, but it does give compilation errors.
Following is the output from above convertor -
Public Function [Get]() As List(Of User)
Using db = New MyContext()
Return (From u In db.UsersOrder By u.FirstNameNew User() With { _
Key .Id = u.pkUser, _
Key .Username = u.Username, _
Key .Password = u.Password, _
Key .Active = u.Active _
}).ToList()
End Using
End Function

Answer 1

Well, the Linq query is obviously messed up. And since there's no User class in the code you tried to convert, the converter tried to use the Key keyword, which is only used for anonymous types.
So the correct code should look like:
Public Function [Get]() As List(Of User)
Using db = New MyContext()
Return (From u In db.Users
Order By u.FirstName
Select New User() With {
.Id = u.pkUser,
.Username = u.Username,
.Password = u.Password,
.Active = u.Active
}).ToList()
End Using
End Function
assuming the following User class:
Public Class User
Public Id As Integer
Public Username As String
Public Password As String
Public Active As Boolean
End Class

Answer 2

It worked now -
Following are the keyword were missing in convertor.
Order
Select New
removed keyword Key
and final code is as below -
Public Function [Get]() As List(Of User)
Using db = New MyContext()
Return (From u In db.UsersOrder Order By u.FirstNameNew select new User() With { _
.Id = u.pkUser, _
.Username = u.Username, _
.Password = u.Password, _
.Active = u.Active _
}).ToList()
End Using