Textbox Empty to Return 0 as value to the cell

[lazyserv]

Greetings to all excel gurus,

May I know what is the possible way to achieve for what I want the UserForm to be?

I have 26 text box to be fill and all these text box can leave for empty if there is no sales to enter.

However I notice is empty text box it would cause my autosum not working correct therefore is it anyway I can replace the empty textbox value to 0 by default?

Here is my VBA code:

Private Sub btnSubmit_Click()

Dim Datalog As Worksheet

Set Datalog = ThisWorkbook.Sheets("Datalog")

'New Row 1
nr = Datalog.Cells(Rows.Count, 5).End(xlUp).Row + 1

Datalog.Cells(nr, 2) = Me.tbDate1
Datalog.Cells(nr, 3) = Me.tbSample1
Datalog.Cells(nr, 5) = Me.tbItem1

Datalog.Cells(nr, 8) = Me.tbSample2
Datalog.Cells(nr, 10) = Me.tbItem2

Datalog.Cells(nr, 13) = Me.tbSample3
Datalog.Cells(nr, 15) = Me.tbItem3

Datalog.Cells(nr, 18) = Me.tbSample4
Datalog.Cells(nr, 20) = Me.tbItem4

Datalog.Cells(nr, 23) = Me.tbSample5
Datalog.Cells(nr, 25) = Me.tbItem5

Datalog.Cells(nr, 28) = Me.tbSample6
Datalog.Cells(nr, 30) = Me.tbItem6

Datalog.Cells(nr, 33) = Me.tbSample7
Datalog.Cells(nr, 35) = Me.tbItem7

Datalog.Cells(nr, 38) = Me.tbSample8
Datalog.Cells(nr, 40) = Me.tbItem8

Datalog.Cells(nr, 43) = Me.tbSample9
Datalog.Cells(nr, 45) = Me.tbItem9

Datalog.Cells(nr, 48) = Me.tbSample10
Datalog.Cells(nr, 50) = Me.tbItem10

Datalog.Cells(nr, 53) = Me.tbSample11
Datalog.Cells(nr, 55) = Me.tbItem11

Datalog.Cells(nr, 58) = Me.tbSample12
Datalog.Cells(nr, 60) = Me.tbItem12

'New Row 2
nr2 = Datalog.Cells(Rows.Count, 5).End(xlUp).Row + 1

Datalog.Cells(nr2, 2) = Me.tbDate2
Datalog.Cells(nr2, 3) = Me.tbSample13
Datalog.Cells(nr2, 5) = Me.tbItem13

Datalog.Cells(nr2, 8) = Me.tbSample14
Datalog.Cells(nr2, 10) = Me.tbItem14

Datalog.Cells(nr2, 13) = Me.tbSample15
Datalog.Cells(nr2, 15) = Me.tbItem15

Datalog.Cells(nr2, 18) = Me.tbSample16
Datalog.Cells(nr2, 20) = Me.tbItem16

Datalog.Cells(nr2, 23) = Me.tbSample17
Datalog.Cells(nr2, 25) = Me.tbItem17

Datalog.Cells(nr2, 28) = Me.tbSample18
Datalog.Cells(nr2, 30) = Me.tbItem18

Datalog.Cells(nr2, 33) = Me.tbSample19
Datalog.Cells(nr2, 35) = Me.tbItem19

Datalog.Cells(nr2, 38) = Me.tbSample20
Datalog.Cells(nr2, 40) = Me.tbItem20

Datalog.Cells(nr2, 43) = Me.tbSample21
Datalog.Cells(nr2, 45) = Me.tbItem21

Datalog.Cells(nr2, 48) = Me.tbSample22
Datalog.Cells(nr2, 50) = Me.tbItem22

Datalog.Cells(nr2, 53) = Me.tbSample23
Datalog.Cells(nr2, 55) = Me.tbItem23

Datalog.Cells(nr2, 58) = Me.tbSample24
Datalog.Cells(nr2, 60) = Me.tbItem24

'Unload Form
Unload UserForm1

End Sub

Private Sub btnGoTo_Click()

'Go to Summary Worksheet and Unload Form
Worksheets(ActiveSheet.Index - 2).Select
Unload UserForm1

End Sub

Private Sub UserForm_Initialize()

Me.tbDate1 = Format(DateAdd("D", -Weekday(Date), Date), "dd-mmm-yy")
Me.tbDate2 = Format(DateAdd("D", -Weekday(Date) + 1, Date), "dd-mmm-yy")

End Sub

Thank you.