VB .NET - Como saber onde se encontra o *.exe de sua aplicação

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        Dim dir As String

        dir = Environment.CurrentDirectory

        MsgBox("Diretório de origem: " & dir)

    End Sub

Espero ter Ajudado e Att.