Ciclare un file e aggiungerlo al contenuto di una textbox

Salve a tutti ho il bisogno di ciclare un file riga per riga e inserire il suo contenuto dentro una textbox..
mi spiego meglio:

ho un file csv devo recuperare dai separatori alcuni parametri.. e ricostruirli in una text box ...

ho fatto questo:

strfile_exp = (App.path & "\export\") & "filemio" & (".csv")

Open strfile_exp For Input As #1
mostra.Text = Input$(LOF(1), #1)

Medio.Text = udf_ReadLine(mostra.Text, 1) ' read line #1
Dim stmp As String
stmp = Medio.Text
Dim q As String
' q = Mid(stmp, 1, 30)
q = "update ADMIN.LTA_ANAGRAFICA set   LTA_DATAMODIFICA = TO_DATE('12/19/2020 00:00:00', 'MM/DD/YYYY HH24:MI:SS'), LTA_NOME  = 'ATZEI'||' '||'IGNAZIO',  LTA_SESSO = 'M', LTA_NASCITA =  TO_DATE('12/15/1967 00:00:00', 'MM/DD/YYYY HH24:MI:SS'),   LTA_COMUNE_NASCITA='Cagliari',LTA_INDIRIZZO = 'Via Rossi 3', LTA_CITTA = 'Cagliari', LTA_CF = 'TZAFFF67R15B354H' where  lta_anag_id = (select ltr_anag_id from admin.ltr_richiesta where ltr_num_rich='3632');"
' Dim B As String
B = Split(Medio.Text, ";")
'SQLView = q
SQLView = "update ADMIN.LTA_ANAGRAFICA set   LTA_DATAMODIFICA = TO_DATE('" & B(10) & " " & B(11) & "', 'DD/MM/YYYY HH24:MI:SS')," & "LTA_NOME  = '" & B(0) & "'||' '||'" & B(1) & "',  LTA_SESSO = '" & B(2) & "', LTA_NASCITA =  TO_DATE('" & B(3) & " " & "00:00:00', 'MM/DD/YYYY HH24:MI:SS'),   LTA_COMUNE_NASCITA='" & B(4) & "',LTA_INDIRIZZO = '" & B(8) & "', LTA_CITTA = '" & B(7) & "', LTA_CF = '" & B(6) & "' where  lta_anag_id = (select ltr_anag_id from admin.ltr_richiesta where ltr_num_rich='" & B(12) & "');"

ora ho fatto una sola riga... ma avrei la neccessità di mettere dentro la textbox il risultato di tutte le righe ciclando il file.. come potrei fare?

in questo modo ho splitato la prima riga del csv, recuperando i dati con il separatore del ";" e ho ticostruito nella textbox il risultato della stringa sql da inserire in oracle.

Per una riga funziona ed è ok.. ma se volessi farlo in automatico per tutte le righe del csv ? come potrei fare ? qualche idea ?

Come hai scritto prima ... ciclando tutto il file csv, leggendolo riga per riga.
Fra l'altro dovresti mostrare come leggi la riga con la funzione

udf_ReadLine


P.S. Non scrivere nel giro di 2 minuti ... modifica il messaggio precedente ... unisco i messaggi

P.P.S. Tutte le parentesi e le unioni che usi non hanno senso ... non si scrive

strfile_exp = (App.path & "\export\") & "filemio" & (".csv")

ma basta

strfile_exp = App.path & "\export\filemio.csv"

Grazie Antonio