Excel VBA entfernt führende Nullen beim Export zu CSV

Sub Stammdaten_Aktuell_Export()
  Dim varSpalten
  Dim intSpalte As Integer, lngZeile As Long
  Dim objQuellblatt As Worksheet
  Dim objZielblatt As Worksheet
  Dim strPfad As String
  Dim varTmp, strOut As String
  Open "c:\test\Stammdaten_Aktuell.csv" For Output As #1  'Datenquelle festlegen  
  Set objQuellblatt = ThisWorkbook.Sheets("Stammdaten_Aktuell") 'Dateiname festlegen  

  varSpalten = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20)
  varTmp = objQuellblatt.UsedRange
  For lngZeile = 1 To UBound(varTmp)
    strOut = ""  
    If Len(varTmp(lngZeile, varSpalten(0))) > 0 Then
      For intSpalte = 0 To UBound(varSpalten)
        strOut = strOut & ";" & varTmp(lngZeile, varSpalten(intSpalte))  
      Next intSpalte
      strOut = Mid(strOut, 2)
      Print #1, strOut
    End If
  Next lngZeile
  Close #1
End Sub