Open folder if non is selected

[stepharr]

Hello I'm trying to create a macro, that opens a folder if no message is selected.
Can you please help me fix the code I have?
Here's the code I have below:

Sub Test1()
Set objFolder = GetDefaultFolder(olFolderInbox).Parent.Folders("_Archives")
If Application.ActiveExplorer.Selection.Count = 0 Then
Set objOlApp.ActiveExplorer.CurrentFolder = objFolder
End Sub