[VB.NET] اضافة كلمة في جميع اسطر listbox

PHP كود :
Public Class Form1
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        ' لتملأ الليست بوكس الأولي بالارقام التي تريدها
        For i As Integer = 1 To 100
            ListBox1.Items.Add(i.ToString)
        Next
    End Sub

    Private Function AddWord(word As String, itemText As String) As String
        Return word + itemText
    End Function

    Private Function AddWord(word As String, lb As ListBox) As String()
        Dim result As List(Of String) = New List(Of String)()
        If lb.Items IsNot Nothing Then
            For i As Integer = 0 To lb.Items.Count - 1
                Dim item As String = TryCast(lb.Items(i), String)
                result.Add(AddWord(word, item))
            Next
        End If
        Return result.ToArray
    End Function

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim s As String = TextBox1.Text
        If Not String.IsNullOrEmpty(s) Then
            ListBox2.Items.Clear()
            Dim strings As String() = AddWord(s, ListBox1)
            For i = 0 To strings.Length - 1
                ListBox2.Items.Add(strings(i))
            Next
        End If
    End Sub
End Class