这个循环判断输出结果的过程要如何写

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim items = {"fad1saZZZffffdsfffdfg",
                     "fdsaafd999afdaffaf",
                     "fd3safdafdsa999fdssafd",
                     "fdsd9999afhgdfadss",
                     "gfdssafddfas"}

        Me.ListBox1.Items.AddRange(items)
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        For Each item As String In Me.ListBox1.Items
            If item.Contains("9") Then
                '输出
                Me.ListBox2.Items.Add(item)
            End If
        Next
    End Sub

------解决方案--------------------
第一份代码是C#的，下面的这个是VB的。。。。。。