How do I change Excel's delimiters when saving as .txt?

Sub WriteFile()

    Dim oFSObj As Object, oTSStream As Object
    Dim lngRow As Long, lngCol As Long
    Dim rngeRangeToWrite As Range
    Dim strTextFile As String, strDelimiter As String
    
    
    'Choose your delimiter here.  Can be anything you want
    strDelimiter = ","


    'You can either use the 'Used range', or use something like
    'Set rngeRangeToWrite = Range("A1:E10")
    Set rngeRangeToWrite = ActiveSheet.UsedRange

    'Create a file system object and use it to create a new
    'text file.
    strTextFile = "C:\myfile.txt"
    Set oFSObj = CreateObject("Scripting.FilesystemObject")
    Set oTSStream = oFSObj.CreateTextFile(strTextFile, True)


    'This loop is for looping from the top of the sheet to the bottom
    For lngRow = 1 To rngeRangeToWrite.Rows.Count

        'This loop will write one cell at a time for the current row
        For lngCol = 1 To rngeRangeToWrite.Columns.Count

            oTSStream.Write Chr(34) & rngeRangeToWrite.Cells(lngRow, lngCol) & _
                                            Chr(34) & strDelimiter

        Next lngCol

        'The vbCr character denotes the end of a text file
        oTSStream.Write vbCr

    Next lngRow
        
    oTSStream.Close


End Sub