Çok teşekkürler şu şekilde sorunumu çözdüm.

If (TextBox1.Text = "") Then
TextBox1.Text = 0

End If