Pessoal com esse código estou gerando esse txt abaixo, mais o código preenche os espaços com zeros.
Preciso que onde tenha espaços deixe com espaços. E não como está fazendo, preenchendo com zeros.

Sub teste()
    Dim i As Integer
    Dim Arquivo As String
    Dim Wf As WorksheetFunction
    Dim numero As String
    Dim Dt As String
    Dim Trd As String
    Dim Trde As String
    Dim Vlr As String
    Dim Htr As String
    Dim Testeses As String
             
    Set Wf = WorksheetFunction
    Arquivo = "C:Tempteste.m11" 
    Sequencial = 1
    Open Arquivo For Output As #1
   
    For i = 1 To ActiveSheet.UsedRange.Rows.Count
        numero = Format(Cells(i, "a").Value, Wf.Rept("0", 7))
        Dt = Cells(i, "b").Value
        Dt = Format(Dt, "dd/mm")
        Trd = Format(Cells(i, "c").Value, Wf.Rept("0", 7))
        Trde = Format(Cells(i, "d").Value, Wf.Rept("0", 7))
        Vlr = Format(Cells(i, "e").Value * 100, Wf.Rept("0", 16))
       Vlr = Left(Vlr, 14) & "." & Right(Vlr, 2) 
        Htr = Format(Cells(i, "f").Value, Wf.Rept("0", 5))
        Testeses = Cells(i, "g").Value
        
        Print #1, numero & Dt & Trd & Trde & Vlr & Htr & Testeses & Wf.Rept(" ", 200 - Len(Testeses)) 
    Next
       
    Close
End Sub

Txt com os espaços preenchido por zeros! O codigo esta gerando assim!

000000229/080200939009235000000000000144.7500038135910 EXPRESSO 000000329/080200939009235000000000000125.4800038135917 EXPRESSO 000000429/080200939009235000000000000152.0200038136114 EXPRESSO

Exemplo como tem que ficar o txt! Aqui tenho os caracteres preenchido por espaços
229/08____200939____ 92350_____144.75 38135910 EXP
329/08____200939____ 92350_____125.48 38135917 EXP
429/08 ____200939____ 92350_____152.02 38136114 EXP