Синтаксическая ошибка в VB

[Rosstarot]

Не пойму, почему код не работает. На VB 6.0 все работало, перенес на VB 9.0 - перестало. Функция, грубо говоря, переводит текст из объекта Textf в значение функции f. Но в строке f=sc.Eval(sf) он почему-то принимает sc за необъявленную переменную. Any help?

 Public Function f(ByRef x As Single) As Single
        Dim sf As Object
        Dim S As Object
        Dim lx As Object
        Dim i As Short
        lx = "(" & Str(x) & ")"
        For i = 1 To Len(Textf.Text)
            S = Mid(Textf.Text, i, 1)
            
            If S <> "x" Then
                sf = sf & S
            Else
                sf = sf & lx
            End If
        Next i
        f = sc.Eval(sf)
    End Function

[Rosstarot]

Haaalp, plz