Agregar datos en SubItem en un ListView

Listview1. Item(0). SubItem. Add(Textbox1.text)

Gracias por contestar,
El código que me sugeriste me marca el siguiente error:
"Error de Compilación:"
"No se encontró el método o l miembo de datos:"

El error me lo indica en .item del código.
¿A qué es epuede deber?
Muchas gracias.

¿Qué código usas?

Uso Visual Basic 6.0
Elcodigo Siguiente es el que carga Los datos en La primera columna, ahora con un código similar me gustaría cargar los subItems desde el Textbox2, pero agregarlos una vez que ya los Items están cargados.
'===============================================================
Sub Cargar()
On Error GoTo errSub
Dim n_File As Integer
Dim Linea As String
Dim archivo As String
Dim Trmlinea As String
Dim TrmNo As String
Dim TrmCodigo As String
Dim posicion As Integer
Dim i As Integer
Dim sumar As Double
For i = 1 To ListView1.ListItems.Count
sumar = CDbl(ListView1.ListItems(i).SubItems(1))
Next i
If sumar = True Then
Exit Sub
End If
n_File = FreeFile
Open "C:\" & Text1 & ".txt" For Input As n_File
Do While Not EOF(n_File)
Line Input #n_File, Linea
posicion = InStr(Linea, Text2.Text)
TrmNo = Trim(Mid(Linea, 1, 1))
TrmCodigo = Trim(Mid(Linea, 4, 15))
With ListView1
.View = lvwReport
'=================================================
Dim itm As ListItem
Set itm = ListView1.ListItems.Add(, , Text1.Text)  'Con esto grego el Item
itm.SubItems(1) = TrmNo ' Aqui decearia agregar el sub item pero conel Textbox2
End With
With ListView2
.View = lvwReport
'=================================================
Set itm = ListView2.ListItems.Add(, , TrmNo)
End With
Loop
Exit Sub
errSub:
'error
MsgBox "Número de error: " & Err.Number & vbNewLine & _
"Descripción del error: " & Err.Description, vbCritical
End Sub