En el evento "LostFocus" puedes obligar a que el dato adquiera un valor por defecto; por ejemplo:
Private Sub txtBox1_LostFocus()
If isnull(txtBox1.text) or txtBox1.text = "" then txtBox1.text = " "
....
end sub
Con que el campo contenga un espacio será suficiente para evitar tu error.
