[Uzvern]

Помогите плз. Вообщем необходимо вывести сообщение с первой буквой из каждой строки.

Код:

Public Class Form1
    Dim i1 As String
    Dim i2 As Long = -1
    Dim i3 As String
    Dim i4 As String
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        i1 = RichTextBox1.Text
        Do Until i2 = RichTextBox1.Lines.Length
            i2 = i2 + 1
            i3 = RichTextBox1.Lines(i2).Substring(0, 1)
            i4 = i3 & Chr(13)
        Loop
        MsgBox(i4)
    End Sub
End Class

Не могу понять почему не хочет. + Со списком жестких дисков такое же.

Код:

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim h As Integer = -1
        Do Until h = My.Computer.FileSystem.Drives.Count
            h = h + 1
            RichTextBox1.Text = RichTextBox1.Text & My.Computer.FileSystem.Drives(h).Name
        Loop
    End Sub
End Class