Me supongo que estas hablando de windows forms.
POdría hacer ésto para obtener el nombre del ejecutable:
Cita: Dim path As String = Me.GetType.Assembly.Location
path = path.Substring(path.LastIndexOf("\") + 1)
MessageBox.Show(path)
Espero que sea lo que buscas.
