2 Listbox en un solo form mostrar datos

Dentro de un form tengo un listbox que me muestra información sobre reportes que tiene un equipo, pero quiero dentro del mismo form que al mismo tiempo que me muestra los reportes en el listbox1(REPORTES) tambien me muestre en otro listbox2 (DATOS) otras atenciones de otra hoja de excel al mismo numero económico del equipo. El codigo que tengo es el siguiente, con un listbox, pero eh buscado como agregar un segundo listbox pero no encuentro como, podrian ayudarme por favor.

Private Sub TextBox1_Change()
On Error Resume Next

Uf = Sheets("REPORTES").Range("A" & Rows.Count).End(xlUp).Row

If TextBox1 = "" Then
Me.ListBox1.ColumnCount = 19
Me.ListBox1.ColumnWidths = "0 pt;0 pt;0 pt;0 pt;0 pt;0 pt;0 pt;0 pt;0 pt;0 pt;0 pt;0 pt;0 pt;0 pt;0 pt;0 pt;0 pt;0 pt;0 pt"
Me.ListBox1.RowSource = "Tabla3"
Exit Sub

End If

Hoja1.AutoFilterMode = False
Me.ListBox1 = Clear
Me.ListBox1.RowSource = Clear

For FILA = 2 To Uf
strg = Sheets("REPORTES"). Cells(FILA, 8).Value 'Variable para descripción
codigo = Sheets("REPORTES"). Cells(FILA, 8).Value 'Variable para codigo
If UCase(strg) Like "*" & UCase(TextBox1.Value) & "*" Then
Me.ListBox1.AddItem
Me.ListBox1.List(x, 0) = Sheets("REPORTES").Cells(FILA, 2).Value
Me.ListBox1.List(x, 1) = Sheets("REPORTES").Cells(FILA, 14).Value
Me.ListBox1.List(x, 2) = Sheets("REPORTES").Cells(FILA, 10).Value
Me.ListBox1.List(x, 3) = Sheets("REPORTES").Cells(FILA, 12).Value
Me.ListBox1.List(x, 4) = Sheets("REPORTES").Cells(FILA, 5).Value
x = x + 1
End If

Next

Me.ListBox1.ColumnWidths = "49 pt;45 pt;110 pt;90 pt;12 pt;0 pt;0 pt; 0pt; 0pt; 0pt"

End Sub