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
              If T < NORM(R, 2) Or T > NORM(R, 3) Then
              If Val(TextBox5.Text) <= 3 Then
                  st = "1 типа"
              ElseIf Val(TextBox5.Text) > 3 Then
                  st = "2 типа"
              End If
              MsgBox "Пациент болен. Сахарный диабет!" & vbLf & st, 64, NORM(R, 1)
              Exit Sub
          End If
      Next R
      MsgBox "Пациент здоров!", 64, ""
End Sub