Mostrar el directorio desde donde estamos ejecutando nuestro programa en Visual Basic

Para obtener el directorio desde donde estamos ejecutando nuestro programa lo único que hay que
hacer es utilizar este código:

Dim Directorio As String
ChDir App.Path
ChDrive App.Path
Directorio = App.Path
If Len(Directorio) > 3 Then
Directorio = Directorio & "\"
End If
Form1.Caption = Directorio

decidi por efectos practicos ponerlo en el evento Load del formulario y mostrarlo en su barra de titulo, en este ejemplo aparece asi: