Para abrir a janela nativa do Windows eu sempre usi o SaveDialog ou OpenDialog.
Dim vsCaminho As String vsCaminho = SaveDialog("") vsCaminho = OpenDialog
Ele abre essa janela:
Boa tarde,
Sim, é possílve! Você pode utilizar o método InputBox:
InputBox("Informe o nome do arquivo", "Nome arquivo", "nome_padrao.txt")
Resultado:
156 Pontos
96 Pontos
61 Pontos
52 Pontos
51 Pontos