Şu kodu alt-prosedur olarak tanımlayıp bir kac prosedurde kullanmak istiyorum. Ama proseduru cağırdığımda calışmıyor. Sorun nedir?

Alt-prosedur kodu:
Kod:
Sub D() If TextBox1.Text = "" Then Exit Sub End If End Sub
Calıştırmak istediğim prosedur de şu. Proseduru gormeden direkt alttaki işleme geciyor. O yuzden program hata veriyor.

Kod:
D() TextBox6.Text = CStr(etoplam())

__________________