You could also try this:

[vba]
With ActiveDocument.FormFields("Number")
Select Case ActiveDocument.FormFields("Member").Result
Case "Bob": .Result = "1"
Case "Chuck": .Result = "2"
Case "Mark": .Result = "3"
End Select
End With
[/vba]