[netsistemas]

Ojo con la función publicada. El formateo de la fecha yo creo que está mal:
debe ser dd-MM-yyyy

        ' Genera la referencia concatenada
        Dim ref As String = GetReferenciaRegistroAlta(nifEmisor, numFacturaSerie, fechaExpedicion.ToString("dd-MM-yyyy"),
                                                          tipoFactura, cuotaTotal, importeTotal, huellaAnterior, fechaHoraUsoRegistro)