Assigning a Value to a Choice Field

[Musa via AccessMonster.com]

Hello,

I'm using Teleform software with VBA capablities.
I have the following
Field Type : Choice Field
Data Type : Numeric
Length : 2

I'm trying to assign the number 8 , if the Field. Status = Const FldTooMany
(If the person marked off more than 1 choice) The values are 1=Yes, 2=No,
and 88=Other


Private Sub Form_Evaluate()
Const FldTooMany = 8
Const FldOK = 0

If B5.Status = FldTooMany Then
B5.Value = 8
Else
B5.Status = FldOK
End If
End Sub

I can't seem to assign the value. A blank field appears on export.