Private Sub CommandButton2_Click()
     Dim NORM As Range, R, T
     Set NORM = Range("НОРМА")
     For R = 1 To 7
         Debug.Print Controls("TextBox" & R).Text
         T = CDbl(Replace(Controls("TextBox" & R).Text, ".", ","))

         If T < NORM(R, 2) Or T > NORM(R, 3) Then
             If Val(TextBox2.Text) < 8 Then
                 st = "Легкая степень тяжести"
             ElseIf Val(TextBox2.Text) > 14 Then
                 st = "Тяжелый случай"
             Else
                 st = "Средняя степень тяжести"
             End If
             MsgBox "Пациент болен. Сахарный диабет!" & vbLf & st, 64, NORM(R, 1)
             Exit Sub
         End If
     Next R
     MsgBox "Пациент здоров!", 64, ""
End Sub