Visual Basic - ayuda con formato de visual a exel

bueno cibernautas
lo que pasa que tengo una aplicacion la cual envio datos de un planilla de exel pero los datos moneda no me aparecen como debe ser y notengo idea como mandar tengo este codigo me pueden ayudar

For x = 1 To grd1.Rows - 1
'IR MOVIENDO LA GRILLA
grd1.Row = x
'PREGUNTAR POR CONTENIDO DE CELDA
total = (total + txt_total)
With objExcel1
grd1.Col = 0
.ActiveSheet.Cells(v, h) = grd1.Text
grd1.Col = 1
.ActiveSheet.Cells(v, h + 1) = CDate(grd1.Text)
grd1.Col = 2
.ActiveSheet.Cells(v, h + 2) = grd1.Text
grd1.Col = 3
.ActiveSheet.Cells(v, h + 3) = grd1.Text
grd1.Col = 4
.ActiveSheet.Cells(v, h + 4) = grd1.Text
grd1.Col = 5
.ActiveSheet.Cells(v, h + 5) = grd1.Text
grd1.Col = 6
.ActiveSheet.Cells(v, h + 6) = grd1.Text
grd1.Col = 7
.ActiveSheet.Cells(v, h + 7) = grd1.Text
grd1.Col = 8
.ActiveSheet.Cells(v, h + 8) = Val(grd1) ' el problema lo tengo aqui lo que pasa es que es de formato moneda en la grilla
Next

En ese codigo hay un compendio de errores que si alguna ves llegara a funcionar seria un milagro.
Pones un With sin un End With, la variable total no se sabe para que sirve, las variables v y h no estan declaradas, y como no quiero extenderme mas te dire que la funcion Val no reconoce ni los signos de moneda ni las comas.