Como definir o diretório atual em uma aplicação VB.NET

'Este exemplo mostra como definir o
'diretório atual em uma aplicação VB.NET

Imports System.IO

Module Module1
  Sub Main()
    'obtém o caminho do diretório atual
    Dim dirAtual As String = Directory.GetCurrentDirectory()
    Console.WriteLine("O diretório atual é: " & dirAtual)

    'altera o diretório atual
    Directory.SetCurrentDirectory("c:\estudos_vb")
    dirAtual = Directory.GetCurrentDirectory()
    Console.WriteLine("O diretório atual é: " & dirAtual)

    Console.WriteLine()
    Console.WriteLine("Pressione uma tecla para sair...")
    Console.ReadKey()
  End Sub
End Module