Ola Pessoal, deparei com esse problema, ja tentei usar varios metodos para tentar solucionar e nada ainda, vou deixar logo abaixo o que tenho pratico no código, quem puder orientar-me, fico grato

Quando mando gravar o registro e deixo o campo data de Pagamento em branco, que somente será preenchido quando ocorrer o pagamento deste registro, esta gravando dessa maneira 00/01/1900
.

Para criar minha planilha uso este método para o campo Data (DatadePagamento)

[code]    For Each Celula In Columns("J:J")
        Celula.NumberFormat = "Data"
        Worksheets("TabReceber").Columns(10).NumberFormat = "dd/mm/yyyy"
        Worksheets("TabReceber").Columns(10).HorizontalAlignment = xlLeft
        Worksheets("TabReceber").Columns(10).ColumnWidth = 10
    Next
    [/code]

Quando vou gravar passo esse parametro para tentar com que o valor DataPagamento fique com "0"

   
     If Me.txtDataPagamento.Text = "" Then
'           With Selection
             .Cells(indice, colDataPagamento).Value = "0"
             .Cells(indice, colDataPagamento).HorizontalAlignment = xlRight
'           End With
        Else
'           With Selection
             .Cells(indice, colDataPagamento).Value = Me.txtDataPagamento.Text
             .Cells(indice, colDataPagamento).HorizontalAlignment = xlRight
'           End With
        End If