Intento de leer o escribir en la memoria protegida

[obedabdias]

tengo una estruntura de datos

Código:

Public Structure tDocumento
        Public aFolio As Double
        Public aNumMoneda As Integer
        Public aTipoCambio As Double
        Public aImporte As Double       ' Importe se asigna solamente cuando se va crear un documento de CxC o CxP, en otro su valor es cero.
        Public aDescuentoDoc1 As Double ' No tiene uso, valor de omision = 0
        Public aDescuentoDoc2 As Double ' No tiene uso, valor de omision = 0
        Public aSistemaOrigen As Integer   ' Valor mayor a 5 que indica una aplicación diferente a los PAQ's
        Public aCodConcepto As String
        Public aSerie As String
        Public aFecha As String  ' Formato mm/dd/aaaa. Las diagonales "/" son parte del formato
        Public aCodigoCteProv As String
        Public aCodigoAgente As String
        Public aReferencia As String
        Public aAfecta As Long          ' No tiene uso, valor de omision = 0
    End Structure

la lleno

Código:

RegDocumento.aFolio = aFolio
                            RegDocumento.aNumMoneda = 1
                            RegDocumento.aTipoCambio = CDbl(1)
                            '        RegDocumento.aImporte = CDbl(0)
                            RegDocumento.aImporte = CDbl(0)

                            RegDocumento.aDescuentoDoc1 = CDbl(0)
                            RegDocumento.aDescuentoDoc2 = CDbl(0)
                            RegDocumento.aSistemaOrigen = CLng(5)
                            Dim prov, agente, ref As String


                            agente = "24"
                            RegDocumento.aCodigoAgente = agente
                            f_RellenaConBlancos(RegDocumento.aCodigoAgente, kLongCodigo)

                            RegDocumento.aFecha = "02/02/2013" 'Format(Now, "MM/DD/YYYY")
                            f_RellenaConBlancos(RegDocumento.aFecha, kLongFecha)

                            'llenamos el aCodigoConcepto con vacios y un caracter nulo
                            f_RellenaConBlancos(aCodigoConcepto, kLongCodigo)
                            RegDocumento.aCodConcepto = aCodigoConcepto

                            f_RellenaConBlancos(aSerie, kLongNumSerie)
                            RegDocumento.aSerie = aSerie

                            prov = "243"
                            RegDocumento.aCodigoCteProv = prov
                            f_RellenaConBlancos(RegDocumento.aCodigoCteProv, kLongCodigo)

                            ref = "1"
                            RegDocumento.aReferencia = ref
                            f_RellenaConBlancos(RegDocumento.aReferencia, kLongReferencia)

                            RegDocumento.aAfecta = 0

pero a la hora de usar una funcion

Código:

 sdxas = fAltaDocumento(aIdDocumento, RegDocumento)

me marca el error que lleva el nombre este comentario,, por su ayuda muchas gracias