Dim statement not working?

Hi, I have the following code which zeros quantities and weight when a statement is selected but it doesn't seem to work and I can't see why?

Private Sub ComboBox37_Change() 'THIS IS TO REMOVE THE WHEEL FITTINGS FROM THE PRODUCT STRUCTURE


Dim s$
s = ComboBox37.Text
If s = "N/A" Or s = "SUPPLY LOOSE-NOTE39" Or s = "NOTE72-NO FITTINGS REQ'D" Then


Me.TextBox27.Value = 0
Me.TextBox55.Value = 0
       
               
End If

End Sub