Public Class Form1
    Inherits System.Windows.Forms.Form
    Dim aname() As String
    Dim room() As String
    Dim Phone() As String
    Dim index As Integer

#Region " Windows Form Designer generated code "

    Public Sub New()
        MyBase.New()

#End Region

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        index = 0

    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        aname(index) = txtname.Text
        room(index) = txtroom.Text
        Phone(index) = txtphone.Text


    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim x As Integer
        For x = 1 To 1
            Dim aname() As String
            ListBox1.Items.Add("Mike")
            ListBox1.Items.Add("Amber")
            ListBox1.Items.Add("George")
            ListBox1.Items.Add("Nicole")
            ListBox1.Items.Add("Chris")
        Next

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click

    End Sub

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        Dim x As Integer
        Dim num As Integer
        Dim find As Integer
        Dim flag As Integer
        flag = 0
        find = Val(TextBox4.Text)
        For x = 0 To (index - 1)
            If (find = aname(x)) Then
                flag = 1
                num = x
            End If
        Next
        If (flag = 1) Then
            ListBox1.Items.Add("Item Found")
            ListBox1.Items.Add(aname(num))
            ListBox1.Items.Add(room(num))
            ListBox1.Items.Add(Phone(num))






        End If
    End Sub
End Class

ListBox1.Items.Add(txtName.Text)