Visual Basic - borrar un caracter de una columna de excel

For i = 1 To nFilas

    For j = 1 To nColumnas

        tx.Write ht.Cells(i + 2, j)

          If k = j Then

             m = ht.Cells(n, k)

             p = String(4 - Len(m), "0") & m

             tx.Write p

          End If

     Next j

    n = n + 1

    tx.WriteLine

Next i

For i = 1 To nFilas

    For j = 1 To nColumnas

        tx.Write ht.Cells(i + 2, j)

        If k = j Then

            m = ht.Cells(n, k)

            p = Format(m, "000#")    ' --- String(4 - Len(m), "0") & m

            tx.Write p

        End If

    Next j

    n = n + 1

    tx.WriteLine

Next i

Sub CrearTXT()

    Dim NombreArchivo, RutaArchivo As String

    Dim obj As FileSystemObject

    Dim tx As Scripting.TextStream

    Dim ht As Worksheet

    Dim i, j, k, m, n, p, nFilas, nColumnas As Integer

    NombreArchivo = "Dispersion"

    RutaArchivo = ActiveWorkbook.Path & "\" & NombreArchivo & ".txt"

    Set ht = Worksheets("Dispersion")

    Set obj = New FileSystemObject

    Set tx = obj.CreateTextFile(RutaArchivo)

    nColumnas = ht.Range("A2", ht.Range("A2").End(xlToRight)).Cells.Count

    nFilas = ht.Range("A3", ht.Range("A3").End(xlDown)).Cells.Count

    k = 5

    n = 3

    For i = 1 To nFilas ' recorre las filas

        For j = 1 To nColumnas ' recorre las columnas

            tx.Write ht.Cells(i + 2, j)   ´pasa la información de las filas y columnas a un archivo txt

                  If k = j Then

                 m = ht.Cells(n, k)  ‘ obtiene el valor de la celda

                'p = String(4 - Len(m), "0") & m   ‘ agregar tres ceros, si la longitud es menor a 4 caracteres

                 tx.Write p   ‘ se imprime en txt el valor de la columna mas los 3 ceros

    }

              End If

    Next j

            n = n + 1

            tx.WriteLine

      Next i

End Sub