Matematik med asp

Hej, jeg er ved at lave et script der kan regne pi ud, med forskellig nøjagtighed... hvorfor duer følgende stykke kode ikke

if cint(Deci) > 0 then

Dim N
For N = 0 To Deci
N = N + 2
Next

For F = 0 To Deci
if F = "+" then
F = "-"
else
F = "+"
end if
Next

Dim t
For t = 0 To Deci
PI = PI + 1 & F(t) & N(t)
Next

cint(pi) = "4*(1" & PI & ")"

Den siger Mismatch ved F der hvor jeg er ved at definere PI