Exportar dados da ListBox para um arquivo txt

Cumprimentos amigos,

Segue em forma de exemplo mais uma boa solução proposta nas salas de dúvidas, desta vez o nosso VieiraSoft facilitou o mundo access. Se desejar, veja o tópico de origem na íntegra

Abaixo faça o download do exemplo:
Download

Bom exemplo. Me permite apenas acrescentar uma forma de verificar se o arquivo foi criado mesmo? Para isso, podemos verificar se existe o arquivo na pasta de destino. No caso abaixo estou usando a pasta do aplicativo mesmo:

If Len(Dir(CurrentProject.Path & "\ListaDePaises.txt")) > 0 Then
    MsgBox "Dados exportados com sucesso", vbOKOnly + vbInformation, "SUCESSO"
Else
    MsgBox "Os dados não puderam ser exportados", vbOKOnly + vbCritical, "ERRO"
End If