Import af XLS data med tekst i datakolonner

Brugere skal importere XLS data for at opdatere datoer i databasen.
Alt fungerer godt men dem, der udfylder XLS arkene skriver en gang imellem noget tekst for at forklare status for dem selv, men problemet er, at når XLS daa kommer ind som en tabel i .Access står disse kolonner som som tekst felter. Datoer står som tal i feltet og alt nulles, hvis feltet konverteres til et dato felt.

Jeg laver alligevel fra Access dataændringer i XLS arket /objektet inden det importeres. Jeg kender fra Access start og slut række samt navne på kolonnerne (hvis de ikke skriver forkert) så jeg mangler blot en effektiv oprensning af datofelterne ala Isdate() is false then = Null

Er der nogen, der har en effektiv kode for dette problem.

En kode snippet som virker, hvis der ikke er tekst i datofelter

    Set xlobj = GetObject(strFileName)
    Set wsobj = xlobj.Worksheets(strMappe)
    Set rngobj = wsobj.usedrange
    For I = rngobj.Column To rngobj.Columns.Count
        rngobj(4, I).Value = Trim(rngobj(4, I).Value)
        If rngobj(4, I).Value = "" Then
            rngobj(4, I).Value = "Header" & I
        End If
    Next I
     
    strRange = rngobj.Address
    strRange = Replace(strRange, "$", "")
    strRange = Replace(strRange, "A1", "A" & IntRowStart)
    DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, "AXADates", strFileName, True, strMappe & "!" & strRange
    xlobj.Close False
    Set xlobj = Nothing