Ya lo he solucionado.
a la hora de añadir los valores donde hago lo siguiente:
Código vb.net:
Ver originalDim datoG As New DatosG()
datoG.importetotal = CDec(Me.TextTotGastosCantiVRLG.Text)
datoG.importekm = CDec(Me.TextImporteKmVRLG.Text)
datoG.importeap = CDec(Me.TextImporteApVRLG.Text)
Me faltaba añadir esto:
Gracias Malenko por tu respuesta.
Saludos