запрос имени файла в макросе Excel

[waskes91]

Требуется обработка множества данных. Как вывести запрос при выполнении макроса, чтобы задать имя файла?

Workbooks.OpenText Filename:= _
"D:\work\Blades\blade_34_2\Velocity \ХХХ\x_10MagnitudeofVFctOfY.dat"

Как задать имя "ХХХ"?

Надоело залезать каждый раз и заменять эту часть имени.
Заранее спасибо!

[EUGY]

Dim fln As String
fln = InputBox("Введите имя папки")
If Len(fln) > 0 Then
    Workbooks.OpenText Filename:="D:\work\Blades\blade_34_2\Velocity \" & fln & "\x_10MagnitudeofVFctOfY.dat"
End If