Visual Basic para Aplicaciones - problemas con textbox

Hola a toda la comunidad el foro. tengo un problema con los textbox de un formulario. el problema es el siguiente cuando dejo algun textbox vacio y presiono el boton para ingresar los datos este me coloca el valor cero a la celda asociada al textbox.lo que yo quiero es que si yo dejo el textbox en blanco es decir sin ingresar ningun valor al momento de presionar el boton ingresar la celda asociada al textbox no tome el valor de cero (0) si no que la deje en blanco.
Gracias

adjunto el codigo

Private Sub CommandButton1_Click()
Sheets("ABONOS").Select


ufila = Cells(Rows.Count, "B").End(xlUp).Row + 1
Cells(ufila, "B") = Val(TextBox1.Value)
Cells(ufila, "C") = Val(TextBox2.Value)
Cells(ufila, "D") = Val(TextBox3.Value)
Cells(ufila, "E") = Val(TextBox4.Value)
Cells(ufila, "F") = Val(TextBox5.Value)
Cells(ufila, "G") = Val(TextBox6.Value)
TextBox1.SetFocus




TextBox1 = Empty
TextBox2 = Empty
TextBox3 = Empty
TextBox4 = Empty
TextBox5 = Empty
TextBox6 = Empty
UserForm7.Hide


End Sub

Puesto que usas la función Val() esta devuelve un valor númerico del contenido de los TextBox cuando estos estan vacios el valor númerico es 0.

Deberias preguntar por el contenido previamente de cada uno de los TextBox y según el contenido aplicar la función o no

ejemplo

if Val(TextBox.Value()=0 then

Cell(ufila,.....)=TextBox.value

else

Cell(ufila,.....)=val(TextBox.value)

end if