Regla de trapecio - macro - visual basic - excel

necesito ayuda en un problema de excel.

INTEGRAL DE (1 + 25/9 cos2 (POR/3)) en [0,100]

*cos2 es coseno elevado a la 2

La repuesta debería de dar 254.9172, sin embargo me da 133.9456 en excel

el código que utilizo es muy sencillo pero no me da

Sub rtrapecio()
b = 100
a = 0
t1 = (b - a) * (1 + 2.7777778 * Cos(b / 3) ^ 2) + (1 + 2.7777778 * Cos(a / 3) ^ 2) / 2
Cells(14, 5) = "t1"
Cells(14, 6) = t1
End Sub

cual es el error'??

POR FAVOR

Y GRACIAS! :)