Подскажите в чем ошибка? - VB

Private Sub NN_Click()
SpCity.Clear
SpFrm.Clear
SpCity.AddItem "Арзамас"
SpCity.AddItern "Валахина"
End Sub
 
Private Sub MS_Click()
SpCity.Clear
SpFrm.Clear
SpCity.AddItem "Красногорск"
SpCity.AddItem "Матиши"
SpCity.AddItem "Раменское"
End Sub
Private Sub SpCity_Change()
SpFrm.Clear
If SpCity.Text = "Красногорск" '[COLOR="Red"]
Then '[/COLOR]
SpFrm.AddItem "Альт"
SpFrm.AddItem "Вега"
Elseif SpCity.Text = "Матиши" '[COLOR="Red"]
Then '[/COLOR]
SpFrm.AddItem "Миг"
SpFrm.AddItem "Орион"
Elseif SpCity.Text = "Раменское" '[COLOR="Red"]
Then '[/COLOR]
SpFrm.AddItem "Меркурий"
SpFrm.AddItem "Нептун"
Elseif SpCity.Text = "Арзамас" '[COLOR="Red"]
Then '[/COLOR]
SpFrm.AddItem "Лайма"
SpFrm.AddItem "Неон"
Elseif SpCity.Text = "Балахина" '[COLOR="Red"]
Then '[/COLOR]
SpFrm.AddItem "Лион"
SpFrm.AddItem "Медиа"
End If
End Sub
 
Private Sub SpFrm_Change()
Range("H8").Value = SpFrm.Text
End Sub