Обратите внимание на различие результатов:
MsgBox "Между 1 и 3"
Case 4,5,6
MsgBox "Между 4 и 6"
Case 7,8,9
MsgBox "Между 7 и 9"
Case Else
MsgBox "Результат вне диапазона."
End Select
MsgBox T1.Value & " в квадрате = " & Result
Обратите внимание на различие результатов: при вводе чисел от 1 до 3 появляется сообщение об интервале, а любое другое числа вызывает выполнение блока Case Else.