Erro de conversão de datas VB.NET

Olá galera,

Uso a função abaixo para criar uma grid na memória. Essa grid é preenchida com as datas de criação de vários arquivos constantes na pasta de backup da aplicação:

Private Sub checaBackup(ByVal dir As String, ByVal exibeArquivos As Boolean, Optional ByVal nivel As Integer = 0)
Dim Grid As New DataGridView

Grid.Columns.Add("data", "data_criacao")
Try
If exibeArquivos Then
For Each nome As String In Directory.GetFiles(dir)
If InStr(nome, ".mdb", CompareMethod.Text) > 0 Then
Dim row As String() = {File.GetCreationTime(nome)}
Grid.Rows.Add(row)
ElseIf InStr(nome, ".gz", CompareMethod.Text) > 0 Then
Try
File.Delete(nome)
Catch ex As Exception
'MsgBox("Erro:" & ex.ToString)
End Try

End If
Next
End If
Grid.Sort(Grid.Columns(0), System.ComponentModel.ListSortDirection.Descending)
Dim data_criacao = Microsoft.VisualBasic.DateAndTime.DateValue(Grid.Rows(0).Cells(0).Value)
Dim data_atual = CDate(Today.Date())
MsgBox(data_criacao)
Dim diferenca = DateDiff(data_atual, data_criacao, 1)

Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
O try retorna o erro:

O argumento 'Date2' não pode ser convertido para o tipo 'Date'
Supus que seria a variável data_criacao, mas no entanto, o msgbox retorna o valor "03/01/2009" (sem aspas), e a variável é convertida.

O que fiz errado?

Obrigado a todos.