[EASY] Code modification needed

Sub CallExport()
'ExportRange(range,where,delimiter)

Call ExportRange(Sheet1.Range("Batsman"), _
"C:\details.txt", ",")
End Sub

Function ExportRange(WhatRange As Range, _
         Where As String, Delimiter As String) As String

Dim HoldRow As Long    'test for new row variable
    HoldRow = WhatRange.Row

Dim c As Range    'loop through range variable

For Each c In WhatRange
    If HoldRow <> c.Row Then
        'add linebreak and remove extra delimeter
ExportRange = Left(ExportRange, Len(ExportRange) - 1) _
                          & vbCrLf & vbCrLf & c.Text & " " & Delimiter & " "
        HoldRow = c.Row
    Else
        ExportRange = ExportRange & c.Text & " " & Delimiter & " "
    End If
Next c

'Trim extra delimiter
ExportRange = Left(ExportRange, Len(ExportRange) - 1)

'Kill the file if it already exists
If Len(Dir(Where)) > 0 Then
    Kill Where
End If

Open Where For Append As #1    'write the new file
Print #1, ExportRange
Close #1

End Function