Problema con los decimales

[angelotar]

Desde hace un par de años he estado esperando una respuesta de este foro sin resultado.Mi problema es el siguiente tengo un control msflexgrid en el deseo mostrar unos valores (números) con decimales pero solo me muestra números enteros, los datos los tomo de una BD que cargo mediante un control data, y luego de cargar los datos hago una suma utilizando los campos de la grilla así :
Private Sub Combsumar_Click()
Dim mono As Double
Grillav.Col = 5
For i = Grillav.Rows To 1 Step -1
Grillav.Row = i - 1
mono = Format(mono + Val(Grillav.Text), "##0.00") 'Format(0, "0.")
Next
i = Grillav.Col = 5
Grillav.Row = Grillav.Rows - 1
If Grillav.Text <> "Total:" Then
Grillav.Rows = Format(Grillav.Rows + 1, "##0.00")
Grillav.Col = 4
Grillav.Row = Format(Grillav.Rows - 1, "##0.00")
Grillav.Text = Format("Total:", "##0.00")
Grillav.Col = 5
Grillav.Text = Format(mono, "##0.00")
Total = Format(mono, "##0.00")
End If
If Efectivo = "" Then
iva = Format(Total * 0.21, "##0.00")
confinal = Format(Total + CDec(iva), "##0.00")
Else
vuelto = Format(Efectivo - CDec(confinal), "##0.00")
End If
End Sub
Ojalá exista alguien que me pueda rosolver este problema.Gracias igual