Prova così:
codice:Dim aLines() As String = rtb3.Lines Dim i As Integer = 0 For i = 0 To aLines.Length - 1 If Mid(aLines(i), 1, 1) = "c" Then aLines(i) = Mid(aLines(i), 2) End If Next rtb3.Lines = aLines![]()
Prova così:
codice:Dim aLines() As String = rtb3.Lines Dim i As Integer = 0 For i = 0 To aLines.Length - 1 If Mid(aLines(i), 1, 1) = "c" Then aLines(i) = Mid(aLines(i), 2) End If Next rtb3.Lines = aLines![]()