Obtener archivos de la carpeta Debug y mostrarlos

Dim files() As String
files = System.IO.Directory.GetFiles(Application.StartupPath, "*.sql")
Dim x As String
For Each x In files
MessageBox.Show(x)
Next

'Las 6 líneas de arriba se pueden reducir a:
For Each x As String In System.IO.Directory.GetFiles(Application.StartupPath, "*.sql")
MessageBox.Show(x)
Next