Ciao a tutti
Ho un problema:
Splitto il contenuto di un file di testo,poi lavoro le stringhe della matrice e li riunisco in una textbox con il seguente codice:

Private Sub Command1_Click()

Dim m_righe() As String
Dim MyString, MyLen
Dim AnyStringl, MyStrl
Dim AnyStringr, MyStrr
Dim SearchStringl, SearchCharl, MyPosl
Dim SearchStringr, SearchCharr, MyPosr
Dim PauseTime, Start, Finish, TotalTime
Dim stringa As String

m_righe = Split(Text1.Text, vbCrLf)
Text1.Text = ""
For i = 0 To UBound(m_righe)
MyString = m_righe(i) ' Inizializza la stringa.
MyLen = Len(MyString) ' Restituisce la lunghezza stringa
AnyStringl = m_righe(i) ' Definisce la stringa.

SearchStringl = m_righe(i) ' Stringa in cui eseguire la ricerca.
SearchCharl = "(" ' Cerca "(".
MyPosl = InStr(1, SearchStringl, SearchCharl, 1)

SearchStringr = m_righe(i) ' Stringa in cui eseguire la ricerca.
SearchCharr = ")" ' Cerca ")".
MyPosr = InStr(1, SearchStringr, SearchCharr, 1)


MyStrl = Left(AnyStringl, MyPosl) ' Restituisce la 1 parte della stringa.
AnyStringr = m_righe(i) ' Definisce la stringa.
MyStrr = Right(AnyStringr, MyPosr - (MyPosl - 1)) ' Restituisce la 2 parte della stringa

Dim c As String
c = 1 + i

Text1.Text = (Text1.Text + MyStrl + c + " ," + MyStrr + vbCrLf)

Next

End Sub
Il testo è una serie di insert per un db mysql:
INSERT INTO `comuni` VALUES ('Altino', 1);

viene splittato giusto nella matrice (15020) righe,poi viene modificato e rimesso nella textbox correttamente;
INSERT INTO `comuni` VALUES (1 ,'Altino', 1);

solo che dopo un centinaio di righe rallenta fino alla 1020 riga in cui si blocca e non prosegue più.
Presumo che sia dovuto al fatto che ogni riga svuota la textbox e ne riscrive il contenuto con 1 riga in + ogni volta:
Text1.Text = ""
Text1.Text = (Text1.Text + MyStrl + c + " ," + MyStrr + vbCrLf)
Però non ho la piu pallida idea di come fare
Grazie