Soru dolu TextBoxları sayma

[sirkülasyon]

Userformda TextBox (2,4,6,8,10) hangileri dolu ise dolu olan TextBox sayısını TextBox13' e nasıl aldırabilirim?
Saygılarımla

 

[Emir Hüseyin Çoban]

.

Kontrol edilecek TextBox isimleri adedi sabit 5 mi

.

 

[sirkülasyon]

Hüseyin abi
İstediğimi yaptım gibi ama sıkıntı var.
Rica etsem kod da ki hatamı düzeltebilir misin?

Private Sub CommandButton1_Click()
 If OptionButton1 = True Then
   Dim Toplam As Double
    Say = 0
    For X = 2 To 10 Step 1
    If Say = 5 Then GoTo SoN
    If Controls("TextBox" & X) <> "" Then
    Toplam = Toplam + Controls("TextBox" & X).Value
    Say = Say + 1
    End If
    Next
SoN: TextBox12 = Say
 Onay = MsgBox("(KDV %8 Seçtiniz) Kaydetmek istiyor musunuz?", vbCritical + vbYesNo)
    If Onay = vbNo Then Exit Sub
TextBox13.Value = Format((TextBox11 / 108) * 100, "#,##0.00")
End If

If OptionButton2 = True Then

   Dim Topla As Double
    Say = 0
    For X = 2 To 10 Step 1
    If Say = 5 Then GoTo SoN
    If Controls("TextBox" & X) <> "" Then
    Topla = Topla + Controls("TextBox" & X).Value
    Say = Say + 1
    End If
    Next
SoN1: TextBox12 = Say
 Onay = MsgBox("(KDV %18 Seçtiniz) Kaydetmek istiyor musunuz?", vbCritical + vbYesNo)
    If Onay = vbNo Then Exit Sub

TextBox13.Value = Format((TextBox11 / 118) * 100, "#,##0.00")
End If
  For i = 1 To 10
        Controls("TextBox" & i) = Empty
    Next
End Sub

KDV 8 seçince TextBox13.Value = Format((TextBox11 / 118) * 100, "#,##0.00")
KDV 18 Seçince de TextBox13.Value = Format((TextBox11 / 108) * 100, "#,##0.00")
kısımları hata veriyor. Aktarma kodlarını da ekledim ama o da hata verdi.

 

[Emir Hüseyin Çoban]

Şuan pc başında değilim. İlk gördüğüm optionbutton2 de goto son yazımı hatalı mı.

.

 

[sirkülasyon]

Hüseyin abi
Müsait olduğunuz da bakabilir misiniz?

 

[Emir Hüseyin Çoban]

.

Bende hata vermedi. Verdiği hata uyarısı nedir.

.

 

[sirkülasyon]

KDV 8 seçince TextBox13.Value = Format((TextBox11 / 118) * 100, "#,##0.00")
KDV 18 Seçince de TextBox13.Value = Format((TextBox11 / 108) * 100, "#,##0.00")
kısımları hata veriyor.

 

[Emir Hüseyin Çoban]

.

Ekran görüntüsü:

.

 

[sirkülasyon]

Teşekkür ederim Hüseyin Abi
Sağlıcakla