So here is the code I've found to be working now for this option to open a folder and display the full contents through explorer.exe:
If ClientCode = "1" Then
folder = "Server:\path\"& ShortName &" - "& AddressOnly & "\"
ElseIf ClientCode = "2" Then
folder = "Server:\path\"& ShortName &" - "& AddressOnly & "\"
ElseIf ClientCode = "3" Then
folder = "Server:\path\"& ShortName &" - "& AddressOnly & "\"
End if
Set fso = CreateObject("Scripting.FileSystemObject")
If Not fso.FolderExists(folder) Then
MsgBox "No Files Exist. You must create the file first before trying to find it.", vbExclamation, "No File Found."
Exit Sub
Else
'moving on
End If
set WSshell = createobject("wscript.shell")
WSshell.run "C:\WINDOWS\explorer.exe "& folder &"", 1
Set WSshell = nothing