What I need is some code to check if a few text boxes are empty, if the text box is empty then a message box should pop up that displays all which text boxes are empty and afterwards aborts the rest of the code.

example:

Company name: (Blank)
Brand name: (Blank)
cost: (Blank)

after hitting submit a text box should pop up and inform the user that the above data is missing and stop the rest of the code from executing.

below is the code I have however it does not stop the data that eventually gets added from being added to the spreadsheet
If Not TextBox1.Value = vbNullString Then GoTo ttextbox2 Else MsgBox ("Please enter company name.")
ttextbox2:
If Not TextBox2.Value = vbNullString Then GoTo ttextbox3 Else MsgBox ("Please enter brand name.")
ttextbox7:
If Not TextBox7.Value = vbNullString Then GoTo ccombobox1 Else MsgBox ("Please enter bottle size")
ccombobox1:
If Not ComboBox1.Value = vbNullString Then GoTo ttextbox3 Else MsgBox ("Please enter if cases or eaches")
ttextbox3:
If Not TextBox3.Value = vbNullString Then GoTo ttextbox5 Else MsgBox ("Please enter how many bottles per case (if eaches enter 1)")
ttextbox4:
If Not TextBox4.Value = vbNullString Then GoTo tTextBox6 Else MsgBox ("Please enter comission percentage")
ttextbox5:
If Not TextBox5.Value = vbNullString Then GoTo tTextBox6 Else MsgBox ("Please enter cost")
tTextBox6:
If Not TextBox6.Value = vbNullString Then GoTo resumecode Else MsgBox ("Please enter selling price")
resumecode:
rest of the code

Private Sub CommandButton1_Click()
Call UnProtect_Sheet

Application.Run "PERSONAL.XLS!Manual_Calculation"
Application.Run "PERSONAL.XLS!Delete_Blank_ColumnA"



If Not TextBox1.Value = vbNullString Then GoTo ttextbox2 Else MsgBox ("Please enter company name.")
ttextbox2:
If Not TextBox2.Value = vbNullString Then GoTo ttextbox3 Else MsgBox ("Please enter brand name.")
ttextbox7:
If Not TextBox7.Value = vbNullString Then GoTo ccombobox1 Else MsgBox ("Please enter bottle size")
ccombobox1:
If Not ComboBox1.Value = vbNullString Then GoTo ttextbox3 Else MsgBox ("Please enter if cases or eaches")
ttextbox3:
If Not TextBox3.Value = vbNullString Then GoTo ttextbox5 Else MsgBox ("Please enter how many bottles per case (if eaches enter 1)")
ttextbox4:
If Not TextBox4.Value = vbNullString Then GoTo tTextBox6 Else MsgBox ("Please enter comission percentage")
ttextbox5:
If Not TextBox5.Value = vbNullString Then GoTo tTextBox6 Else MsgBox ("Please enter cost")
tTextBox6:
If Not TextBox6.Value = vbNullString Then GoTo resumecode Else MsgBox ("Please enter selling price")
resumecode:




Sheets(4).Range("A" & Rows.Count).End(xlUp).Offset(1, 0).Value = Me.TextBox1.Value
Sheets(4).Range("A" & Rows.Count).End(xlUp).Offset(0, 1).Value = Me.TextBox2.Value
Sheets(4).Range("A" & Rows.Count).End(xlUp).Offset(0, 2).Value = Me.TextBox7.Value
Sheets(4).Range("A" & Rows.Count).End(xlUp).Offset(0, 4).Value = Me.ComboBox1.Value
Sheets(4).Range("A" & Rows.Count).End(xlUp).Offset(0, 3).Value = Me.TextBox3.Value
On Error GoTo exitsub
Sheets(4).Range("A" & Rows.Count).End(xlUp).Offset(0, 7).Value = Me.TextBox4.Value * (0.01)
Sheets(4).Range("A" & Rows.Count).End(xlUp).Offset(0, 5).Value = Me.TextBox5.Value
Sheets(4).Range("A" & Rows.Count).End(xlUp).Offset(0, 6).Value = Me.TextBox6.Value

Call Number_Format
exitsub:

Call Protect_Sheet
End Sub