'Code to process the items in a list
        Dim report As String = ""
        Dim count As Integer = 0
        For i As Integer = 0 To lstOrder.Items.Count - 1
            If Val(lstOrder.Items(i)) Mod 2 <> 0 Then
                report = report & lstOrder.Items.Item(i) _
				       & vbNewLine
                count += 1
            End If
        Next
        MessageBox.Show("there were " & count.ToString _
            & " odd numbers in the list, i.e., " & vbNewLine _ & report)



'Code to count the vowels in a string
        Dim mystr As String = txtStrInput.Text.ToLower
        Dim vowels As Integer = 0
        Dim vowelValues As String = "aeiouy"
        For i As Integer = 0 To mystr.Length - 1
            For j As Integer = 0 To vowelValues.Length - 1
                If (mystr.Chars(i)) = vowelValues.Chars(j) Then
                    vowels += 1
                End If
            Next
        Next
        MessageBox.Show(vowels.ToString)