Suma En Un msflexigrid

[fede_rosario]

yo hago esto y funciona muy bien ,pero no hagas un VAL sobre la celda porque el val obia las comas entendes,fijate y me avisas
If MSFlexGrid1.Col = 2 Then
Dim Precio, Cantidad As Currency
Dim Total, Ttotal As Currency
Dim lngMaxRow As Long
w = MSFlexGrid1.Row
lngMaxRow = MSFlexGrid1.Rows - 1
For w = w To lngMaxRow
DoEvents
If MSFlexGrid1.TextMatrix(w, 3) <> "" Then
Precio = MSFlexGrid1.TextMatrix(w, 3)
End If
If MSFlexGrid1.TextMatrix(w, 2) <> "" Then
Cantidad = MSFlexGrid1.TextMatrix(w, 2)
Else
End If

Ttotal = Precio * Cantidad
MSFlexGrid1.TextMatrix(w, 5) = Format$(Total, "###.00")

Next w
End If