Alttaki kodu dener misin?

Private Sub TextBox_CepheOlcusu_Exit(ByVal Cancel As MSForms.ReturnBoolean)

If TextBox_CepheOlcusu.Value >= 8000 Then

 ComboBox_RaySayisi.ListIndex = ComboBox_RaySayisi.ListIndex + 1

 result = MsgBox("Cephe ölçüsü Limit değerin üstünde..." & vbNewLine & "Ray sayısı güncellenecek.", vbYesNo + vbCritical, "WINPERAX Teklif Bilgi Ekranı")

 If result = vbYes Then

 MsgBox "Ray sayısı güncellendi", vbExclamation, "WINPERAX Teklif Bigi Ekranı"

  Else: result = vbNo

      MsgBox "DİKKAT" & vbNewLine & "Sistem bileşenlerinden Ray Sayısı güncellenemedi...", vbOKOnly + vbCritical, "WINPERAX Teklif Bilgi Ekranı"

    ComboBox_RaySayisi.ListIndex = 1

 End If

 ElseIf TextBox_CepheOlcusu.Value < 4000 Then

  result = MsgBox("Cephe ölçüsü Limit değerin altında..." & vbNewLine & "Ray sayısı güncellenecek.", vbYesNo + vbCritical, "WINPERAX Teklif Bilgi Ekranı")

 ComboBox_RaySayisi.ListIndex = ComboBox_RaySayisi.ListIndex - 1

If result = vbYes Then

 MsgBox "Ray sayısı güncellendi", vbExclamation, "WINPERAX Teklif Bigi Ekranı"

  Else: result = vbNo

      MsgBox "DİKKAT" & vbNewLine & "Sistem bileşenlerinden Ray Sayısı güncellenemedi...", vbOKOnly + vbCritical, "WINPERAX Teklif Bilgi Ekranı"

    ComboBox_RaySayisi.ListIndex = 1

  End If

End If

End Sub