Bom dia!!

Já tentou assim?

Sub AleVBA_12033()
    Dim N As Long
    For N = 0 To UBound(Split(Text1.Text, vbCrLf))
        List1.AddItem Split(Text1.Text, vbCrLf)(N)
    Next N
End Sub

Att

Alexandre boa noite, obrigado por me responder, pois já resolvi desta forma:

Private Sub btnInserir_Click()

 If cmbTpReq <> Empty And txtIDItem <> Empty And txtCodigo <> Empty And txtDescReq <> Empty _
 And txtQuantidade <> Empty And txtUn <> Empty And txtCustoUnitario <> Empty _
 And txtCustoTotal <> Empty And cmbPrEnt <> Empty Then
  
        With Me.lstvOrcamentos 'Listview
            .ListItems.Add 1, , Me.cmbTpReq.Value 'tipo de requisição
            .ListItems(1).ListSubItems.Add 1, , UCase(Me.txtIDItem) 'id do item
            .ListItems(1).ListSubItems.Add 2, , Me.txtCodigo 'codigo
            .ListItems(1).ListSubItems.Add 3, , UCase(Me.txtDescReq) 'descrição
            .ListItems(1).ListSubItems.Add 4, , Format(Me.txtQuantidade, "0.00") 'quantidade
            .ListItems(1).ListSubItems.Add 5, , UCase(Me.txtUn) 'unidade
            .ListItems(1).ListSubItems.Add 6, , Format(Me.txtCustoUnitario, "Currency") 'valor unitario
            .ListItems(1).ListSubItems.Add 7, , Format(Me.txtCustoTotal, "Currency") 'valor total
            .ListItems(1).ListSubItems.Add 8, , Format(Me.cmbPrEnt) 'prazo de entrega
        
        End With
 
 End If
   
 End Sub

Mas estou com duvidas em outras macros, que estão no outro topico (VARIAS MACROS NÃO ESTÃO FUNCIONANDO), se puder me ajudar.

Desde já agradeço.

silvajmp