El error lo muestra porque intenta multiplicar el caracter espacio que no es un numero.
Lo primero que tienes que hacer es que cuando uses el valor de un textbox te asegures antes de que contienen numeros.
El fallo mas gordo lo tienes cuando permites que la sub se llame a si misma.
Si no puedes evitar que la sub se llame, como es tu caso, lo que tienes que hacer es poner un flag o aviso que impida que se procese el código de la sub cuando es ella la que se llama a si misma o simplemente cuando la sub se esta ejecutando.
Para eso puedes usar una variable estática.
Código vb:
Ver originalPrivate Sub Text1_Change()
Static EnUso As Boolean
If EnUso=True Then Exit Sub
EnUso=True
...
...
el codigo de la sub
...
...
EnUso=False
End Sub
De todas formas dentro de la sub cuando uses el textbox convierte el texto al formato numérico:
Resultado=1500 * Val(Text1)
Si el texto no contiene numeros el valor devuelto es 0, que no genera errores.