If IsEmpty - Copying Text from Multiple Text Boxes to 1 Text Box

Hi,

I have a form that has 5 small text boxes and a big text box. What i am trying to do is add value in required text boxes and when i say record the Text box values should be copied to the big text box.
I have the following code:

If Not IsEmpty(TextBox4.Value) Then
        TextBox4.Visible = True
        TextBox1.Text = "Approved" & vbCrLf & vbCrLf & TextBox2.Text & vbCrLf & "====================" & vbCrLf & "Decision" & vbCrLf & vbCrLf & TextBox3.Text & vbCrLf & "====================" & vbCrLf & "DND" & vbCrLf & vbCrLf & TextBox4.Text & vbCrLf & "====================" & vbCrLf
        Else: TextBox1.Text = ""
End If

and i am getting this in the big text box:

Name

Bob
====================
DOB


====================
Address

1212 Tom Street, ABC Avenue, Sussex, NB - 101010
====================

i have not entered any Data Under DOB but on the Big text box i am getting the Header DOB and i dont want the Caption also to come. If there is a value in the text box then in the big text box the value should come along with the caption"Name" or "DOB".

Any help would be highly appreciated.