Saludos:

Puedes hacer dos cosas:

Colocar los valores en Cero, validando si hay algo en el Textbox, asi:


Dim Vr1, Vr2, Total As Double
If TextBox1.Text.Length = 0 Then
Vr1 = 0