For some reasons Win 7 does not open Explorer to \Users\...\AppData\ from VB6 code for the Standard user.But it works fine in Windows 10 for the same Standard user!

Here is the code
Option Explicit

Private Sub Command1_Click()
Dim objShell As Object
Dim sPath As String
Dim strAppData As String

Const QUOTE As String = """"
Const ssfCOMMONAPPDATA = &H23
Const ssfLOCALAPPDATA = &H1C
Const ssfAPPDATA = &H1A

strAppData = CreateObject("Shell.Application").NameSpace(ssfLOCALAPPDATA).self.Path

sPath = strAppData
sPath = Replace(sPath, QUOTE, QUOTE & QUOTE)
Shell "explorer.exe /e" & sPath, vbNormalFocus

End Sub

Any ideas how I can open Windows explorer for the Standard user and point to \AppData\ in Windows 7 ??