Не выдает значение y, в чем дело?

Sub Main()
Dim x As single, y As single, t As single
x = Sheets("Лист3").Cells(4, 2)
If x < 0.5 And t = 2.2 Then
y = (Log(x) ^ 3 + x ^ 2) / Sqr(x + t)
Else
If x = 0.5 And t = 2.2 Then
y = Sqr(x + t) + 1 / x
Else
If x > 0.5 And t = 2.2 Then
y = Cos(x) + t * Sin(x) ^ 2
End If
End If
End If
Sheets("Лист3").Cells(4, 3) = y
End Sub

Ок, спасибо, как присвоить значение t, чтобы ветки не занулялись

1) Явно в программе задать и убрать проверку t 2) прочитать их ячейки, как и х 3) Ввести в диалоге вызовом t=InputBox("Введите t")