Dim strItem As New List(Of String)
                Dim intValue As New List(Of Integer)
                Dim strItemArray() As String
                Dim intValueArray() As Integer
                strItem.Add("John")
                intValue.Add(1)
                strItemArray = strItem.ToArray
                intValueArray = intValue.ToArray
                Dim intHighItems As Integer = strItemArray.GetUpperBound(0)
                Dim intHighValues As Integer = intValueArray.GetUpperBound(0)
                For intItems As Integer = 0 To intHighItems Step 1  ' Performs Loop to Populate Room List
                    lstItems.Items.Add(strItemArray(intItems)) ' Adds Room Number to Room List in "01,02,03" Format
                Next intItems