Zero a Esquerda - CPF -.CSV

[Sergio Hatus]

Boa Tarde, Pessoal.

 

Estou precisando exportar uns dados de uma planilha excel para .csv, porém não estou conseguindo fazer com que os CPF que começam com zero, fiquem com o caractere zero na planilha csv. 
Já tentei colocar entre "" e não da certo, porque geralmente as "" vão para a planilha e fazem com que o CPF fique incorreto.

Sub ExportarParaCSV()

    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long
    Dim fileName As String
    Dim fileNum As Integer
    Dim linhaCSV As String

    ' Definir a planilha que será usada
    Set ws = ThisWorkbook.Sheets("CPF") ' Mude o nome conforme necessário

    ' Encontrar a última linha com dados na coluna A
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row

    ' Definir o nome do arquivo CSV
    fileName = ThisWorkbook.Path & "\Exportacao_CPDF.csv"

    ' Abrir o arquivo CSV para gravação
    fileNum = FreeFile
    Open fileName For Output As fileNum

    ' Loop por todas as linhas da coluna A e B
    For i = 1 To lastRow
        ' Formatar a célula da coluna A como texto (para preservar o CPF corretamente)
        ws.Cells(i, 1).NumberFormat = "@"

        ' Montar a linha para o CSV, com a coluna A entre aspas duplas para garantir o formato texto
        linhaCSV = """" & ws.Cells(i, 1).Text & """;" & ws.Cells(i, 2).Text

        ' Gravar a linha no arquivo CSV
        Print #fileNum, linhaCSV
    Next i

    ' Fechar o arquivo CSV
    Close fileNum

    MsgBox "Exportação concluída! Arquivo salvo como: " & fileName

End Sub

 

SE alguém conseguir me ajudar sou grato. 

 

Atenciosamente.