Как из ListBox выводить Строки в TextBox

 For с_начала = 0 To ListBox1.Items.Count - 1
            MsgBox(ListBox1.Items(с_начала))
        Next

   Public с_начала As Byte
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If ListBox1.Items.Count <> с_начала Then
            TextBox1.Text = ListBox1.Items(с_начала)
            с_начала += 1
        Else
            MsgBox("Строки закончились.")
        End If
    End Sub

   Public с_начала As Byte
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If ListBox1.Items.Count = с_начала Then MsgBox("Строки кончились.") : exit sub
            TextBox1.Text = ListBox1.Items(ñ_íà÷àëà)
            с_начала += 1
    End Sub

   Dim i As Integer
    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        If i >= ListBox1.Items.Count Then i = 0 'эта строчка не обязательна, сделанно просто для удобства щелкания, по кругу чтобы было
        TextBox1.Text = ListBox1.Items(i)
        i += 1
    End Sub

TextBox1.Text &= ListBox1.SelectedItem

TextBox1.Text = TextBox1.Text & ListBox1.SelectedItem