Function EvalFunkcija() Dim Str As String Dim Rezultat As Double Str = "2+3*5/2" Rezultat = Eval(Str) End Function