Como abrir otro formulario con el valor de mi listBox

-Tengo un formulario frm_Lote con un listBox "lista_Lote" que carga datos de la hoja("Entradas"), hasta aquí se y funciona bien pero lo que pretendo conseguir es que al seleccionar la línea del "lista_Lote" me abra el formulario frm2 y carge en el "listbox-Salidas" las salidas que se registraron en la hoja("Salidas").

No se como vincular. Me gustaría que se vinculase por nºentrada que está en entradas: "Hoja3.Cells(i, 5)" y en hoja salidas:"Hoja4.Cells(i, 5)"

Abajo dejo el código que tengo para el frm_Lote

Saludos y buen día a todos.

Private Sub UserForm_Activate()
On Error GoTo Salir
Me.lista_Lote.Clear
items = Range("tbl_Entradas").CurrentRegion.Rows.Count
        For i = 2 To items
            If LCase(Hoja3.Cells(i, 2).Value) Like LCase(frm_Salidas.ComboBox1.Value) And Hoja3.Cells(i, 7) > 0 Then  'FILTRA DATOS MAYORES A CERO EN EL CUADRO DE LISTA
                Me.lista_Lote.AddItem Hoja3.Cells(i, 2)
                Me.lista_Lote.List(Me.lista_Lote.ListCount - 1, 6) = Hoja3.Cells(i, 5)
                Me.lista_Lote.List(Me.lista_Lote.ListCount - 1, 0) = Hoja3.Cells(i, 2)
                Me.lista_Lote.List(Me.lista_Lote.ListCount - 1, 1) = Hoja3.Cells(i, 3)
                Me.lista_Lote.List(Me.lista_Lote.ListCount - 1, 5) = Hoja3.Cells(i, 4)
                Me.lista_Lote.List(Me.lista_Lote.ListCount - 1, 2) = Hoja3.Cells(i, 7)
                Me.lista_Lote.List(Me.lista_Lote.ListCount - 1, 3) = Hoja3.Cells(i, 17)
                Me.lista_Lote.List(Me.lista_Lote.ListCount - 1, 4) = Hoja3.Cells(i, 18)
                 vLote = Hoja3.Cells(i, 17)
                 vCaducidad = Hoja3.Cells(i, 18)
                 vNSalida = Hoja3.Cells(i, 1)
            End If
        Next i
Exit Sub
Salir:
 If Err <> 0 Then
    MsgBox Err.Description, vbExclamation, "Control de Almacen"
 End If
End Sub
Private Sub UserForm_Initialize()
'Este código realiza el procedimiento de ocultar la barra de título, haciendo uso de las API
    Dim lngWindow As Long, lFrmHdl As Long
On Error GoTo Salir
    lFrmHdl = FindWindowA(vbNullString, Me.Caption)
    lngWindow = GetWindowLong(lFrmHdl, GWL_STYLE)
    lngWindow = lngWindow And (Not WS_CAPTION)
    Call SetWindowLong(lFrmHdl, GWL_STYLE, lngWindow)
    Call DrawMenuBar(lFrmHdl)
'Le digo cuántas columnas
lista_Lote.ColumnCount = 7
    'Asigno el ancho a cada columna
    Me.lista_Lote.ColumnWidths = "75 pt;70 pt;45 pt;55 pt;60 pt; 75 pt; 50pt"
        'El origen de los datos es la Tabla1
            'lista_Lote.RowSource = "tbl_Entradas"
Salir:
 If Err <> 0 Then
    MsgBox Err.Description, vbExclamation, "Control de Almacen"
 End If
End Sub