If Microsoft.VisualBasic.Left(contact.innerHtml, 1).ToLower = "m" _
 
         Then
 
 
Boys(index) = new Boy
                Boys(index).setAlter(Microsoft.VisualBasic.Mid( _
                  contact.innerHtml, 4, 2))
 
                index += 1
 
            Else
 
Girls(index) = new Girl
                Girls(index).setAlter(Microsoft.VisualBasic.Mid( _
                  contact.innerHtml, 4, 2))
 
                index += 1
 
            End If