Can't work calculation?

Hi,

I'm trying take the first letter from combobox10, divide by 2 and put the result in textbox27>

Any ideas??

Private Sub TextBox27_Change()
If ComboBox10 =  “5/165” Then 

 '  Dim d As Double

  '  d = Val(Right(TextBox10.Value, 1))
   ' If UCase$(ComboBox27.Value) = Then d = d * 2
            
'End Sub