Pessoal, bom dia!

Utilizo o código abaixo para exportar os dados da listview para um novo Workbook, criado automaticamente pelo próprio código. Isso funciona bem, mas, para as colunas de Vencimento e Previsto, é necessário que eu ponha Cdate.

A pergunta é: onde colocá-lo?

Private Sub image39_Click()

Dim xlApp As Object, xlWb As Object, xlWs As Object
Dim ROW As Integer, Col As Integer
Dim X

Set xlApp = CreateObject("Excel.Application")
Set xlWb = xlApp.Workbooks.Add
Set xlWs = xlWb.Worksheets(1)

xlApp.Visible = True
xlApp.UserControl = True

xlWs.Cells(1, 1).Value = "ID"
xlWs.Columns(1).ColumnWidth = 5
xlWs.Cells(1, 2).Value = "Descrição do Item"
xlWs.Columns(2).ColumnWidth = 60
xlWs.Cells(1, 3).Value = "Centro de Custo"
xlWs.Columns(3).ColumnWidth = 30
xlWs.Cells(1, 4).Value = "Conta Razão"
xlWs.Columns(4).ColumnWidth = 30
xlWs.Cells(1, 5).Value = "Tipo"
xlWs.Columns(5).ColumnWidth = 10
xlWs.Cells(1, 6).Value = "Valor"
xlWs.Columns(6).ColumnWidth = 10
xlWs.Cells(1, 7).Value = "Vencimento"
xlWs.Columns(7).ColumnWidth = 13
xlWs.Cells(1, 8).Value = "Previsto"
xlWs.Columns(8).ColumnWidth = 13
xlWs.Cells(1, 9).Value = "Pagamento"
xlWs.Columns(9).ColumnWidth = 13
xlWs.Cells(1, 10).Value = "Situação"
xlWs.Columns(10).ColumnWidth = 13
xlWs.Cells(1, 11).Value = "Cliente"
xlWs.Columns(11).ColumnWidth = 60

xlWs.Columns(12).ColumnWidth = 0

xlWs.Columns(13).ColumnWidth = 0

xlWs.Columns(14).ColumnWidth = 0

xlWs.Columns(15).ColumnWidth = 0
For X = 1 To 11
xlWs.Columns(X).HorizontalAlignment = xlLeft
Next

xlWs.Rows(1).RowHeight = 18
xlWs.Rows(1).Font.Bold = True
xlWs.Range("A1:k65000").Font.Size = 11

For ROW = 2 To lslista.ListItems.Count + 1
For Col = 1 To lslista.ColumnHeaders.Count
If Col = 1 Then
xlWs.Cells(ROW, Col).Value = lslista.ListItems(ROW - 1).Text
Else
xlWs.Cells(ROW, Col).Value = lslista.ListItems(ROW - 1).SubItems(Col - 1)
End If
Next
Next

MsgBox "Exportação realizada com Sucesso!", vbInformation, "Exportação de Dados"

End Sub