Bom dia Pessoal

estou precisando de ajuda com o código abaixo, o mesmo esta funcionando normalmente, entretanto gostaria de melhorá-lo. Quando eu gero o arquivo, ele fica com o nome "Contas a pagar", mas eu gostaria que fica-se o nome "Contas a Pagar + a Data + a Hora = Contas a Pagar 11/05/2015 11:28

Desde já agradeço a colaboração.

Sub GerarContasPagar()
    Dim localGravacao As String
    Dim nomeArquivo As String
    Dim linhaGravar As String
    Dim ultLinha As Integer
    Dim ultColuna As Integer
    
    localGravacao = Environ("USERPROFILE") & "Desktop"
    nomeArquivo = "Contas a Pagar.txt"
    ultLinha = Sheets("EXP").Cells(Cells.Rows.Count, "A").End(xlUp).Row
    ultCol = Sheets("EXP").Cells(1, Cells.Columns.Count).End(xlToLeft).Column
    
    'Abre o arquivo para gravação
    Open localGravacao & nomeArquivo For Output As #1
        For i = 1 To ultLinha
            For j = 1 To ultCol
                   'Concatena as colunas separando elas por ","
                   linhaGravar = linhaGravar & Sheets("EXP").Cells(i, j).Value & ","
            Next j
            'Grava a linha no arquivo - As funções Left e Len são utilizadas para excluir a última virgula do texto
            Print #1, Left(linhaGravar, Len(linhaGravar) - 1)
            linhaGravar = ""
        Next i
    Close #1
End Sub