Application.Name (gb)
Static Property Read Name As String
Retorna o nome da aplicação, conforme definido na caixa de diálogo de Propriedades do projeto na IDE.
Exemplo
Dim s AS String
s = Application.Name ' Retorna o nome da aplicação
TextBox1.Text = s