Dim ar As String[] Dim n As Integer ar = Split(TextArea2.text, gb.newline) For n = 0 To ar.Max ar[n] = String.LCase(ar[n]) Next ar.Sort(gb.Language + gb.IgnoreCase) TextArea3.text = ar.Join(gb.NewLine)