Why isn't this App closing?

[bat711]

I need the VB app to shut itself down once IE launches and it isn't currently. Here is the code, probably simple I'm just missing it.

Private Sub Form_Load()
 
Dim objMSIE
Dim boolFileExists As Boolean
Dim strNotFound As String
Dim strStatus As String
 
Set objMSIE = CreateObject("InternetExplorer.Application")
If Err.Number = 0 Then 'No error
            boolFileExists = True
            outrc = 0
        Else
            boolFileExists = False
            strNotFound = "I cannot find Internet Explorer." & vbCrLf & "Please download Internet Explorer from www.microsoft.com/windows/ie"
            MsgBox strNotFound, vbCritical, "Application Error"
            outrc = 1
            Exit Sub
        End If
 
objMSIE.Navigate ("To a website")
objMSIE.Visible = True
 
Set PublicObjectMSIE = objMSIE
strStatus = PublicObjectMSIE.StatusText
    
    Select Case strStatus
        Case "Done"
            End
    End Select
 
End Sub