Квадрат Пифагора - психологический портрет по введенной дате рождения

Option Explicit
Dim P As PictureBox
Private Sub Command1_Click()
    Dim s As String, s1 As String, i As Integer
    Dim v1 As Integer, v2 As Integer, v3 As Integer
    Dim v4 As Integer, v5 As Integer, v6 As Integer
    Dim v7 As Integer
    'Combo1.Text = "22": Combo2.Text = "12": Combo3.Text = "1915"
    s = Combo1.Text & "." & Combo2.Text & "." & Combo3.Text
    If Not IsDate(s) Then MsgBox "Invalid date", vbCritical, s: Exit Sub
    s = Replace(s, ".", "") '
    's = CStr(Val(Replace(s, ".", ""))): s1 = s
    v1 = SumDig(s)
    v2 = SumDig(SumDig(s))
    v3 = v1 - Val(Mid(s, 1, 1)) * 2
    v4 = SumDig(v3)
    v5 = v1 + v3
    v6 = SumDig(SumDig(v5))
    v7 = SumDig(SumDig(v2 + v4))
    s1 = v1 & v2 & v3 & v4 & v5 & v6 & v7 '
    Label1(0).Caption = "Первая строка  " & s & vbCrLf & "Вторая строка  " & s1
    BuildPSQ (s & s1)
End Sub
 
Private Sub BuildPSQ(ByVal s As String)
    Dim i As Integer, j As Integer, k As Integer, st(1 To 9) As String
    P.Cls
    P.Line (1, 1)-(10, 10), , B
    P.Line (4, 1)-(4, 10): P.Line (7, 1)-(7, 10)
    P.Line (1, 4)-(10, 4): P.Line (1, 7)-(10, 7)
    For i = 1 To 9
         st(i) = String(UBound(Split(s, i)), CStr(i))
         If st(i) = "" Then st(i) = "-"
    Next i
    For i = 1 To 9 Step 3
        For j = 1 To 9 Step 3
             k = k + 1
             P.CurrentX = i + 1
             P.CurrentY = j + 1
             P.Print st(k)
        Next j
    Next i
End Sub
 
Private Function SumDig(ByVal s) As Integer
    Dim i As Integer
    For i = 1 To Len(s)
        SumDig = SumDig + Val(Mid(s, i, 1))
    Next i
End Function
 
Private Sub Command2_Click()
    If Picture1.Picture = 0 Then Picture1.Picture = Picture2.Picture Else P.Picture = LoadPicture("")
End Sub
 
Private Sub Form_Load()
    Dim i As Integer
    For i = 1 To 100
        If i <= 31 Then Combo1.AddItem i
        If i <= 12 Then Combo2.AddItem i
        Combo3.AddItem i + 1914
    Next i
    Set P = Picture1
    P.Scale (0, 0)-(11, 11)
    P.Font = 18: P.FontBold = True
    P.AutoRedraw = True
End Sub

    For i = 1 To 100
        If i <= 31 Then Combo1.AddItem Format(i, "00")
        If i <= 12 Then Combo2.AddItem Format(i, "00")
        Combo3.AddItem i + 1914
    Next i