Problem med vb kode

denne her kode henter data ud fra id og det virker som det skal
men er der dato der fra hvor den henter fra laver den det om til us data kan man skrive noget ind i koden så den ikke ser på om det er dato el tid osv... det er dk office og xp jeg har så ved ikke hvorfor den gør det og det er ikke alle datoer den gør det med kun nogle af dem...

Public Sub Data()
 
  Set rngHentIdNr = Worksheets("L").Range("B205:B274")
 
  With Worksheets("ID")
    r = .Cells(Rows.Count, 2).End(xlUp).Row
    Set rngIdNr = Range(.Cells(2, 1), .Cells(r, 1))
  End With

    For Each n In rngHentIdNr
      For Each C In rngIdNr
      If n.Value = C.Value Then
        vdB = C.Offset(, 1).Resize(1, 18).Value
        n.Offset(, 1).Resize(1, 18).Value = vdB
      End If
      Next
    Next

    Set rngIdNr = Nothing
    Set rngHentIdNr = Nothing
End Sub