No entiendo como programar el código para buscar datos y reflejarlo en un formulario, Cuadro de lista

Diseñe un formulario para buscar datos de dos hojas en un mismo archivo los de la hoja 2 (renombrado BASE DATOS) se reflejan en texbox y los de las hoja 3 (renombrado REGISTRO PAGO) se reflejaan en un cuadro de lista en el mismo formulario. E intentado de varias maneras y no he podido.

Anexo una imagen del formulario y el código que hasta ahora he realizado.

Busco ayuda

Private Sub CommanBUSCAR_Click()
     Dim Sht1 As Worksheet, Sht2 As Worksheet
    Dim LastRow1 As Long, LastRow2 As Long
    Dim myRow As Long
    Dim i As Long, j As Long
    Dim myPath As String, myFile As String
    Set Sht1 = ThisWorkbook.Worksheets("BASE DATOS") 'poner aqui el nombre correcto de la hoja
    Set Sht2 = ThisWorkbook.Worksheets("REGISTRO PAGO") 'poner el nombre de la otra hoja
        LastRow1 = Sht1.Cells(Sht1.Rows.Count, "A").End(xlUp).Row
        LastRow2 = Sht2.Cells(Sht2.Rows.Count, "A").End(xlUp).Row
    For i = 2 To LastRow1
        If Sht1.Cells(i, 1).Value = TXTCEDULA.Text Then
            TXTSOBRE.Text = Sht1.Cells(i, 2)
            TXTNOMBRES.Text = Sht1.Cells(i, 3)
            TXTAPELLIDOS.Text = Sht1.Cells(i, 4)
            TXTCARRERA.Text = Sht1.Cells(i, 5)
            TXTREGIMEN.Text = Sht1.Cells(i, 6)
            TXTCELULAR.Text = Sht1.Cells(i, 8)
            TXTHABITACION.Text = Sht1.Cells(i, 9)
            TXTTRABAJO.Text = Sht1.Cells(i, 10)
            TXTEMAIL.Text = Sht1.Cells(i, 11)
            TXTFECHANACIMIENTO.Text = Sht1.Cells(i, 12)
            TXTEDAD.Text = Sht1.Cells(i, 13)
            TXTSEXO.Text = Sht1.Cells(i, 14)
            TXTDIRECCION.Text = Sht1.Cells(i, 15)
        End If
    Next i
    For j = 2 To LastRow2
       Application.ScreenUpdating = False
Sheets("REGISTRO PAGO").Select
Range("C5").Select
LISTACLI.Clear
While ActiveCell.Value <> ""
M = InStr(1, UCase(ActiveCell.Value), UCase(TXTCEDULA.Text))
If M > 0 Then
ListHISTORIAL.ColumnCount = 8
ListHISTORIAL.AddItem
ActiveCell.Offset(0, -1).Select
ListHISTORIAL.List(ListHISTORIAL.ListCount - 1, 0) = ActiveCell.Value
ActiveCell.Offset(0, 1).Select
ListHISTORIAL.List(ListHISTORIAL.ListCount - 1, 1) = ActiveCell.Value
ActiveCell.Offset(0, 1).Select
ListHISTORIAL.List(ListHISTORIAL.ListCount - 1, 2) = ActiveCell.Value
ActiveCell.Offset(0, 1).Select
ListHISTORIAL.List(ListHISTORIAL.ListCount - 1, 3) = ActiveCell.Value
ActiveCell.Offset(0, 1).Select
ListHISTORIAL.List(ListHISTORIAL.ListCount - 1, 4) = ActiveCell.Value
ActiveCell.Offset(0, 1).Select
ListHISTORIAL.List(ListHISTORIAL.ListCount - 1, 5) = ActiveCell.Value
ActiveCell.Offset(0, -4).Select
End If
    Next j
End Sub

Soy pricipiante.