vb console application does not close - vb.net

Question

I created a vb.net to grab an attribute from AD and create a local variable.
It does that just fine, the problem is that it leaves the console window open with nothing but a flashing cursor. Ideally it would close as soon as it created the variable.
I've tried adding Environment.Exit (0)
Module Module1
Sub Main()
Dim objShell
Dim objUserEnv
Dim objADSysInfo
Dim objUser
objShell = CreateObject("WScript.Shell")
objUserEnv = objShell.Environment("USER")
objADSysInfo = CreateObject("ADSystemInfo")
objUser = GetObject("LDAP://" & objADSysInfo.UserName)
' This will create the variable %ipphone%
objUserEnv("ipphone") = objUser.ipPhone
End Sub
End Module
Any ideas why it's not closing the console?

Answer 1

Ok, Since Environment.Exit(0) is not working and you are within a Console application, Try this, Go to Project > Add Reference > Assemblies > Framework and search for System.Windows.Forms click the check box and then click the Ok after that add this to your code.
Imports System.Windows.Forms
Module Module1
Sub Main()
Dim objShell
Dim objUserEnv
Dim objADSysInfo
Dim objUser
objShell = CreateObject("WScript.Shell")
objUserEnv = objShell.Environment("USER")
objADSysInfo = CreateObject("ADSystemInfo")
objUser = GetObject("LDAP://" & objADSysInfo.UserName)
' This will create the variable %ipphone%
objUserEnv("ipphone") = objUser.ipPhone
Application.Exit()
End Sub
End Module
Another reason that it might not be closing is because it is not completing the task, When I ran your code, It didnt complete and I got this error
Additional information: No mapping between account names and security IDs was done. (Exception from HRESULT: 0x80070534) Since you didn't mention this in your question, Im guessing you didnt get this error?

Answer 2

Try this :
Application.Exit
I think it's cause of the settings of your project, I never had such a matter

Answer 3

Module MyApp
Sub Main()
' Attach the event handler method
AddHandler AppDomain.CurrentDomain.ProcessExit, AddressOf MyApp_ProcessExit
Dim objShell
Dim objUserEnv
Dim objADSysInfo
Dim objUser
objShell = CreateObject("WScript.Shell")
objUserEnv = objShell.Environment("USER")
objADSysInfo = CreateObject("ADSystemInfo")
objUser = GetObject("LDAP://" & objADSysInfo.UserName)
' This will create the variable %ipphone%
objUserEnv("ipphone") = objUser.ipPhone
Environment.Exit(0)
End Sub
Private Sub MyApp_ProcessExit(sender As Object, e As EventArgs)
Console.WriteLine("App Is Exiting...")
End Sub
End Module

Answer 4

Turns out I was just impatient and it does close given enough time.