Add the field Number 1 to a table.

Use the following custom function:
Sub ResCount()
Dim t As Task
For Each t In activeproject.Tasks
If Not t Is Nothing Then
t.Number1 = t.Assignments.count
End If
Next t
End Sub