Compile error: expected end of statement

[Kotepie]

Hello-I'm trying to write a code for calculating the value of an option. I keep getting a compile error with the i highlighted and can't figure out why for the life of me. I bolded where it highlights the error. Any help would be greatly appreciated. Thank you

Function BinomEuro(S, K, T, rf, sigma, n, TypeOpt As String)
dt = T / n
u = Exp(sigma * dt^(0.5))
d = 1 / u
p = (Exp(rf * dt) - d) / (u - d)

BinomEuro = 0
For i = 0 To n
Select Case TypeOpt
Case "call":
BinomEuro = BinomEuro + Application.Combin(n, i)*p^i*(1-p)^(n-1)*Application.MaxChange(0,S*u^i*d^(n-1)-K)
Case "Put":
BinomEuro = BinomEuro + Application.Combin(n, i)* p^i*(1-p)^(n-1)*Application.MaxChange(0,K-S*u^i*d^(n-1))
End Select



Next i

BinomEuro = Exp(-rf * T) * BinomEuro
End Function

 

[jasonb75]

Missing a few spaces, the compiler is getting narky

Function BinomEuro(S, K, T, rf, sigma, n, TypeOpt As String)
    dt = T / n
    u = Exp(sigma * dt^(0.5))
    d = 1 / u
    p = (Exp(rf * dt) - d) / (u - d)
    BinomEuro = 0
For i = 0 To n
    Select Case TypeOpt
        Case "call":
            BinomEuro = BinomEuro + Application.Combin(n, i) * p ^ i * (1 - p) ^ (n - 1) * Application.MaxChange(0, S * u ^ i * d ^ (n - 1) - K)
        Case "Put":
            BinomEuro = BinomEuro + Application.Combin(n, i) * p ^ i * (1 - p) ^ (n - 1) * Application.MaxChange(0, K - S * u ^ i * d ^ (n - 1))
    End Select
Next i
    BinomEuro = Exp(-rf * T) * BinomEuro
End Function

 

[Kotepie]

Thank you so much. I've spent hours on this trying to figure out what I was doing wrong. Thanks once again.