Pasar detos de un ListBox a diferentes TextBox

Pasar datos de un ListBox a diferentes TextBox

Soy nuevo en tema y estoy tratando de hacer este sistema de facturación, el caso es el siguiente

Tengo un userfrom con varios textbox ordenados por filar (textbox1-textbox2 etc), lo que necesito es que al hacer doble click en un textbox se despliega en listbox doble click y se cargan los datos en los textbox de la fila 1 pero también se cargan en la fila2 en la fila 3

   Private Sub Codespecies_Click()

    Formvtas.Cod1 = Codespecies.List(Codespecies.ListIndex, 0)
    Formvtas.Esp1 = Codespecies.List(Codespecies.ListIndex, 1)
    Formvtas.Portainj1 = Codespecies.List(Codespecies.ListIndex, 2)
    Formvtas.Tinj1 = Codespecies.List(Codespecies.ListIndex, 3)

    Formvtas.Cod2 = Codespecies.List(Codespecies.ListIndex, 0)
    Formvtas.Esp2 = Codespecies.List(Codespecies.ListIndex, 1)
    Formvtas.Portainj2 = Codespecies.List(Codespecies.ListIndex, 2)
    Formvtas.Tinj2 = Codespecies.List(Codespecies.ListIndex, 3)

    Formvtas.Cod3 = Codespecies.List(Codespecies.ListIndex, 0)
    Formvtas.Esp3 = Codespecies.List(Codespecies.ListIndex, 1)
    Formvtas.Portainj3 = Codespecies.List(Codespecies.ListIndex, 2)
    Formvtas.Tinj3 = Codespecies.List(Codespecies.ListIndex, 3)

End Sub

Ejemplo.rar