Çözüldü tarih biçim hatası

merhabalar
Bir çalışma yapmaya çalışıyorum makro bilgim olmadığı için kodları farklı yerlerden toplayarak birşeyler çıkarmaya çalışıyorum o yüzden biraz sizleri meşgül edebilirim şimdiden kusura bakmayın.

1) çalışma dosyasını kopyaladığım zaman veya ismini değiştiğim zman 1 kereye mahsus aşağıdaki hatayı alıyorum sonrasında kendiliğinden düzeliyor


2) excele a sütünuna 20.07.2019 biçiminde tarih girişi yapıyorum ancak listeye ekrandaki igibi geliyor ( 7/20/2019 şeklinde geliyor ve aşağıdaki hatayı veriyor






kod ta
TextBox2 = 0 'Yeniii
TextBox5 = 0 'Yeniii
TextBox6 = 0 'Yeniii
If ComboBox1.Text = "" And ComboBox2.Text = "" And ComboBox3.Text = "" And ComboBox4.Text = "" And ComboBox5.Text = "" And ComboBox6.Text = "" And ComboBox7.Text = "" And ComboBox8.Text = "" And ComboBox9.Text = "" And ComboBox10.Text = "" Then Exit Sub
For x = ListBox1.ListCount - 1 To 0 Step -1
g = CDate(ListBox1.List(x, 0))
r = CDbl(CDate(ComboBox11.Text))
If CDbl(g) >= CDbl(CDate(ComboBox11.Text)) And CDbl(g) <= CDbl(CDate(ComboBox1.Text)) Then

Else
ListBox1.RemoveItem x

End If
Next x
For i = ListBox1.ListCount - 1 To 0 Step -1
If Not ListBox1.List(i, 1) Like ComboBox2.Text & "" Or Not ListBox1.List(i, 2) Like ComboBox3.Text & "" Or Not ListBox1.List(i, 3) Like ComboBox4.Text & "" Or Not ListBox1.List(i, 4) Like ComboBox5.Text & "" Or Not ListBox1.List(i, 5) Like ComboBox6.Text & "" Or Not ListBox1.List(i, 6) Like ComboBox7.Text & "" Or Not ListBox1.List(i, 7) Like ComboBox8.Text & "" Or Not ListBox1.List(i, 8) Like ComboBox9.Text & "" Then
ListBox1.RemoveItem i
Else
If ListBox1.List(i, 6) <> "" Then a = CDbl(ListBox1.List(i, 6))
If ListBox1.List(i, 6) <> "" Then b = CDbl(ListBox1.List(i, 7))
If ListBox1.List(i, 6) <> "" Then c = CDbl(ListBox1.List(i, 8))
TextBox2 = Format(CDbl(TextBox2) + a, "#,##0.00") 'Yeniii
TextBox5 = Format(CDbl(TextBox5) + b, "#,##0.00") 'Yeniii
TextBox6 = Format(CDbl(TextBox6) + c, "#,##0.00") 'Yeniii


End If
Next i