'checks the list to see if the name exists and show the birth month if it does
    count29 = 0
    checkname = ""
    monthvalcheck = 0
    Me.Cls
    checkname = InputBox("name?", "Need Name") 
    For count29 = 1 To 29
        If checkname = names(count29) Then
            monthvalcheck = monval(count29)
            Print checkname & " was born in " & month(monthvalcheck)
        End If 
    Next count29
    If monthvalcheck = 0 Then
        MsgBox ("Name not found")
    End If