Missing Projects from MyWorkItemQuery

When doing a MyWorkItemQuery I am no longer returning any new projects that have been recently setup.  I can still see all of the existing projects but any setup in the last few weeks are missing.

I can find nothing in the projects themselves that looks different.

Any suggestions?

            Dim queryMyWorkItems As New ClarizenService.MyWorkItemsQuery

            queryMyWorkItems.ItemsType = CType(WorkItemType, ClarizenService.WorkItemType)

            queryMyWorkItems.ItemsTypeSpecified = True

            queryMyWorkItems.ItemsFilter = CType(WorkItemFilter, ClarizenService.WorkItemFilter)

            queryMyWorkItems.ItemsFilterSpecified = True

            queryMyWorkItems.ItemsState = CType(WorkItemState, ClarizenService.WorkItemState)

            queryMyWorkItems.ItemsStateSpecified = True

            queryMyWorkItems.Permissions = ClarizenService.PermissionOptions.ObjectAndFields

            queryMyWorkItems.PermissionsSpecified = True

            queryMyWorkItems.Fields = {"Project", "Name", "SYSID"}

            queryMyWorkItems.Orders = New ClarizenService.OrderBy() {New ClarizenService.OrderBy With {.FieldName = "Project"},

                                                                     New ClarizenService.OrderBy With {.FieldName = "SYSID"}

                                                                    }

            queryMyWorkItems.Paging = New ClarizenService.Paging With {.PageSize = 300}

            Try

                GlobalStuff.queryResult = cClient.Query(queryMyWorkItems)

                If GlobalStuff.queryResult.Entities.Count > 0 Then

                    For Each ge As ClarizenService.GenericEntity In GlobalStuff.queryResult.Entities

                        Dim geProject As ClarizenService.GenericEntity = CType(ge.Values(0).Value, ClarizenService.GenericEntity)

                        If IsNothing(geProject) Then

                            'xDic.Add(Nothing, "Error")

                        Else

                            xDic.Add(ge, geProject.Id.Value & CStr(ge.Values(2).Value) & " - " & CStr(ge.Values(1).Value))

                        End If

                    Next ge

                End If

                If GlobalStuff.queryResult.Paging.HasMore Then

                    Do While GlobalStuff.queryResult.Paging.HasMore

                        queryMyWorkItems.Paging = queryResult.Paging

                        GlobalStuff.queryResult = cClient.Query(queryMyWorkItems)

                        For Each ge As ClarizenService.GenericEntity In GlobalStuff.queryResult.Entities

                            Dim geProject As ClarizenService.GenericEntity = CType(ge.Values(0).Value, ClarizenService.GenericEntity)

                            xDic.Add(ge, geProject.Id.Value & CStr(ge.Values(2).Value) & " - " & CStr(ge.Values(1).Value))

                        Next ge

                    Loop

.........