Why would this code generate null exception:
Public Function MessageCount(ByVal mId As Long) As Integer
Dim messages As List(Of InboxMessage) = Nothing
Using ctx As New UFCWEntities.UFCWEntities
Dim allMessageIds = ctx.InboxLinks.Where(Function(o) o.MemberId = mId).ToList()
For Each i As InboxLink In allMessageIds
messages.Add(ctx.InboxMessages.FirstOrDefault(Function(o) o.InboxMessageId = i.InboxMessageId))
Next
End Using
If Not IsNothing(messages) Then
Return messages.Count()
End If
Return 0
End Function
Exception is generated when trying to do messages.Add