get data from multiple rows into 1 textbox

Hi, I'm using this code to get data from multiple rows with the same criteria into 1 textbox, but what it is doing is only taking the last row of that criteria and putting it into the textbox. how do I change it so that the correct number of rows of data is reflected in the textbox?

Private Sub ComboBox2_Change()
    Dim ws1 As Worksheet
    Dim ws2 As Worksheet
    Dim iRow As Long
    
    Set ws1 = ThisWorkbook.Sheets("Case Log")
    Set ws2 = ThisWorkbook.Sheets("Print page")
    TextBox18.Text = ""
    TextBox8.Text = ""
    TextBox9.Text = ""
    
    With ws2.Range("A5:C100")
    .ClearContents
    End With
    
    iRow = ws2.Cells(Rows.Count, 1) _
    .End(xlUp).Offset(1, 0).Row
    
    wsLR = ws1.Cells(Rows.Count, 1).End(xlUp).Row
        For x = 2 To wsLR
        If ws1.Cells(x, 1) = ComboBox2.Value Then
        ws2.Cells(3, 3) = ComboBox2.Value
        ws2.Cells(4, 3) = CDate(ws1.Cells(x, 7))
        With TextBox18
        .Text = "General Comments:" & vbCr & ws1.Cells(x, 10).Text & vbCr & vbCr & "Sample / Type / Marking / Mortuary / Date & Time Received" & vbCr & ws1.Cells(x, 2).Text & " " & ws1.Cells(x, 3).Text & " " & ws1.Cells(x, 4).Text & " " & ws1.Cells(x, 5).Text & " " & ws1.Cells(x, 7).Text & " " & ws1.Cells(x, 8).Text & vbCr
        ws2.Cells(iRow + 1, 3) = ws1.Cells(x, 2).Text
        ws2.Cells(iRow + 2, 3) = ws1.Cells(x, 4).Text
        ws2.Cells(iRow + 3, 3) = CDate(ws1.Cells(x, 7))
        
        iRow = iRow + 4
        
        End With
        With TextBox8
        .Text = ws1.Cells(x, 6).Text
        End With
        With TextBox9
        .Text = ws1.Cells(x, 9).Text
        End With
        End If
        Next x
        
    If ComboBox2.Value = "" Then
        ws2.Range("A:B").Value = ""
    Else
        ws2.Range("A1").Value = "DNA Profiling Laboratory, HSA"
        ws2.Range("A3").Value = "Case No"
        ws2.Range("B3").Value = ":"
        ws2.Range("A4").Value = "Date Created"
        ws2.Range("B4").Value = ":"
    End If

    If ws2.Range("C6") = "" Then
    ws2.Range("A5:B8").Value = ""
    Else
    ws2.Range("A5").Value = "DNA Profiling Laboratory, HSA"
    ws2.Range("A6").Value = "Sample No"
    ws2.Range("B6").Value = ":"
    ws2.Range("A7").Value = "Marking"
    ws2.Range("B7").Value = ":"
    ws2.Range("A8").Value = "Received Date"
    ws2.Range("B8").Value = ":"
    End If
    
    If ws2.Range("C10") = "" Then
    ws2.Range("A9:B12").Value = ""
    Else
    ws2.Range("A9").Value = "DNA Profiling Laboratory, HSA"
    ws2.Range("A10").Value = "Sample No"
    ws2.Range("B10").Value = ":"
    ws2.Range("A11").Value = "Marking"
    ws2.Range("B11").Value = ":"
    ws2.Range("A12").Value = "Received Date"
    ws2.Range("B12").Value = ":"
    End If
    
End Sub

hi norie, It is textbox18.

"General Comments:" & vbCr & ws1.Cells(x, 10).Text & vbCr & vbCr & "Sample / Type / Marking / Mortuary / Date & Time Received" & vbCr & ws1.Cells(x, 2).Text & " " & ws1.Cells(x, 3).Text & " " & ws1.Cells(x, 4).Text & " " & ws1.Cells(x, 5).Text & " " & ws1.Cells(x, 7).Text & " " & ws1.Cells(x, 8).Text & vbCr

I would like to have "Sample / Type / Marking / Mortuary / Date & Time Received" as a header, then line break, followed by the data. So, it should look something like this:

Sample / Type / Marking / Mortuary / Date & Time Received
Sample1-001 hair 12345 M23456 12/10/16 11.15am
Sample1-002 tooth 33445 M34543 12/10/16 11.15am

hope that explains it

How do I make the scrollbars on the textbox appear when I need them to? the info exceeds the size of the textbox, and even though I set scrollbars to both, it doesn't appear