Ayuda con TextBox

Hola expertos, la cuestión es simple, tengo un UserForm con cuatro TextBox, tres de ellos con Locked; el TextBox en el que el usuario si puede escribir, tiene la programación así
Private Sub TextBox1_Change()
TextBox2.Value = TextBox1.Value - 2
TextBox3.Value = TextBox1.Value - 1
TextBox4.Value = TexBox1.Value + 1
End Sub
A medida que voy cambiando el valor del TextBox1, los otros tres van cambiando, pero si por accidente se borra todo el contenido del TexBox1, el programa arroja un error, diciendo "error 13, los tipos no coinciden" y al depurar indica la linea en que le doy a uno de los TextBox2. Value = TextBox1. Value - 2, necesito eliminar ese error, que puedo hacer?
Mil gracias de antemano
Beorhtnoth