HAL,
Tenías razón. Me recomendaron que comience con:
If Val (TextBox2) = 0 Then Exit Sub
y funcionó a la perfección.
Muchas Gracias