Visual Basic - Error 13 en tiempo de ejecución - no coinciden los tipos

Private Sub CommandButton3_Click()

Dim NombreArchivo, RutaArchivo As String

Dim obj As FileSystemObject

Dim tx As Scripting.textstream

Dim HojaTrabajo As Worksheets

Dim i, j, nFilas, nColumnas As Integer

NombreArchivo = "Archivo Plano"

RutaArchivo = Range("E5").Value & "\" & NombreArchivo & ".txt"

Set obj = New FileSystemObject

Set tx = obj.CreateTextFile(RutaArchivo)

Set HojaTrabajo = Worksheets("BD Qmatic Cliente")

nFilas = HojaTrabajo.Range("A4", HojaTrabajo.Range("A4").End(xlDown)).Cells.cout

nColumnas = HojaTrabajo.Range("A3", HojaTrabajo.Range("A3").End(xltorigth)).Cells.cout

For i = 1 To nFilas

For j = 1 To nColumnas

tx.write HojaTrabajo.Cells(i + 4, j)

If j < nColumnas Then tx.write ","

Next j

tx.writeline

Next i

End Sub

Private Sub CommandButton3_Click()

    Dim i As Integer, nFilas As Integer, _

        j As Integer, nColum As Integer, HojaTrabajo As Worksheets

    Set HojaTrabajo = Worksheets("BD Qmatic Cliente")

    nFilas = HojaTrabajo.Range("A4", HojaTrabajo.Range("A4").End(xlDown)).Cells.cout

    nColum = HojaTrabajo.Range("A3", HojaTrabajo.Range("A3").End(xltorigth)).Cells.cout

    Open  Range("E5").Value & "\Archivo Plano.txt" for Output as #9

    For i = 1 To nFilas

        For j = 1 To nColum

            Print #9, HojaTrabajo.Cells(i + 4, j); : If j < nColum then Print #9, ",";

        Next

        Print #9, ""

    Next

    Close #9

End Sub

Private Sub CommandButton3_Click()

    Dim i As Integer, nFilas As Integer, _

        j As Integer, nColum As Integer

   With Worksheets("BD Qmatic Cliente")

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

    nColum = .Range("A3", .Range("A3").End(xlToRight)).Cells.Count

    Open Range("E5").Value & "\Archivo Plano.txt" For Output As #9

    For i = 1 To nFilas

        For j = 1 To nColum

            Print #9, .Cells(i + 4, j);: If j < nColum Then Print #9, ",";

        Next

        Print #9, ""

    Next

    Close #9

    End With

End Sub