text dosya içeriği

[k0081]

Merhaba arkadaşlar;

txt dosyasını yazdırıyorum fakat text in içeriği ilk satır 2 tab tuşu(boşluk) başlayarak yazıyor.. textin ortasına yazıyor yani... bunu 0 dan başlatabilirmiyim.. ? bir de ayıraç olarak excel tablosunda virgül var. text dosyasında nokta olmasını sağlayabilirmiyiz?

yardımcı arkadaşa şimdiden teşekkürler..

Private Sub CommandButton4_Click()
Dim dosya As String, s As Long, d As String
Dim arr() As String, c As Integer
son_k = Worksheets(ActiveSheet.Name).Range("C65536").End(xlUp).Row
    dosya = Application.GetSaveAsFilename("", _
            "Koordinat dosyaları (*.txt) (*.txt), *.txt", 1, _
            "ASCII data kayıt..")
    If dosya = "False" Then Exit Sub
    On Error Resume Next
    ReDim arr(1 To son_k) As String
    Open dosya For Output As #1
    For s = 3 To Range("C" & son_k)
            
            For c = 3 To son_k
                arr(c) = Cells(s, c)
            Next
            
            d = Join(arr, vbTab)
            
            Print #1, d
            Next
        Close #1
    MsgBox "Dosya kaydı tamamlandı.", vbInformation, _
    "ASCII Data kayıt.."
    
    If Err.Number <> 0 Then MsgBox Err.Description, vbExclamation, _
    "ASCII data kayıt.."
End Sub