Estou querendo usar uma formula que  podera ser feita p/ usuario em um text no prog. que estou criando.

ex: B1=Val(RS.Fields(1)               Valores de B1 e B2 em um flexgrid

     B2=Val(RS.Fields(2)

RS.Fields(3)= B1+B2   Isso Funciona .     ? Como colocar essa formula em um text  ?

ex: RS. Fields(3)= text1.text   sendo que no text1 esta B1+B2

Já tentei, " &, Val, Eval E outras.

Valeu!

 

Supondo que b1 esta na col0 do grid e b2 na col1

 

Dim B1,B2,mResultado as double

 

Grid.col=0

b1=cdbl(grid.text)

grid.col=1

b2=cdbl(grid.text)

mResultado=b1+b2

text1=format(mresultado,"###,###,##0.00")