Вычислить биоритм человека и вывести на экран состояния биоритма

g=p mod 21 'и всё

Public Class frmMain
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim BornDate As Date, Age As Integer, AgeDays As Integer
        If (IsDate(TextBox1.Text)) = False Then
            MsgBox("Введите дату своего рождения")
        Else
            BornDate = CDate(TextBox1.Text)
            Age = DateDiff(Microsoft.VisualBasic.DateInterval.Year, BornDate, Now)
            AgeDays = DateDiff(Microsoft.VisualBasic.DateInterval.Day, BornDate, Now)
            'if Age < 18 Or Age > 100 Then MsgBox("Некорректный возраст!") : Exit Sub
            MsgBox("Сегодня: " & Now.ToShortDateString & vbCrLf & _
                   "Дата рождения: " & BornDate.ToShortDateString & vbCrLf & _
                   "Лет: " & Age.ToString & vbCrLf & _
                   "Дней: " & AgeDays.ToString & vbCrLf & _
                   "Физический" & GetBioRithm(AgeDays, 23, 12) & vbCrLf & _
                   "Эмоциональный" & GetBioRithm(AgeDays, 28, 15) & vbCrLf & _
                   "Интеллектуальный" & GetBioRithm(AgeDays, 33, 17) & vbCrLf)
        End If
    End Sub
    Private Function GetBioRithm(ByVal AgeDays As Integer, ByVal Period As Integer, ByVal BadDay As Integer) As String
        Dim NumDay As Integer = AgeDays Mod Period, s As String = " - "
        s &= numDay.ToString & "-й день " & Period.ToString & "-дн.периода - "
        If BadDay = NumDay Or NumDay = 1 Then
            GetBioRithm = s & "критический !"
        ElseIf NumDay < BadDay Then
            GetBioRithm = s & "позитивный :-)"
        Else
            GetBioRithm = s & "негативный :-("
        End If
    End Function
End Class