Change separation between row data from comma to tabulation

I have a code that copy past data from particular sheet to txt file however data row in txt separates by comma. What should I change in code in order that separation will be by tabulation ( key "Tab" in a keyboard )
Many thx in advance !
In attachment you can find examples

Option Explicit
Sub test()
    Dim TempSht As Worksheet
    Dim rRng As Range
    Dim sFullPath As String
    sFullPath = ThisWorkbook.Path & Application.PathSeparator

    With Sheet1
        Set rRng = .Range(.Cells(8, 2), .Cells(.Rows.Count, 7).End(xlUp))
    End With
    Set TempSht = Sheets.Add
    rRng.Copy TempSht.Range("A1")
    TempSht.Copy
    ActiveWorkbook.SaveAs Filename:=sFullPath & "testing.txt", FileFormat:=xlCSV, CreateBackup:=False
    Application.DisplayAlerts = False
    TempSht.Delete
    ActiveWorkbook.Close True
    Application.DisplayAlerts = True
End Sub

Select allOpen in new window

testing-comma-.txt
testing-tab.txt