Visual Basic - Dar nombre a un archivo.asc

Hola

Tengo una aplicacion en la que creo archivos ascii:

Open "R:\aplicacion lorpen\ventas\nombrearchivo.asc" For Append As #2

y quiero que el usuario le de el nombre al archivo mediante un inputbox.

¿Como lo puedo hacer?

GRACIAS

Pide el nombre con el inputbox guardalo en una variable

Open "R:\aplicacion lorpen\ventas\" & nombrearchivo For Append As #2

O usas creo que es el metodo Rename. Para cambiar el nombre de un archivo