How to enter %PC1driveD% into .vbs? System environment variable PC1DriveD defined as d:

PC2 needs to access the files on PC1,
thus sysvar on PC2 defines PC1DriveD as a networked drive letter.

Same sharing concept needed if use USB with fname and attach to laptop.

My .bat code worked flawlessly using %PC1DriveD%\fname.xlsm

Now, using .vbs, this works:

Set oxl = CreateObject("excel.application")
                    Set owb = oxl.Workbooks.Open("d:\fname.xlsm")   
     
       THIS DOES NOT WORK:
                Set owb = oxl.Workbooks.Open("%PC1d%\fname.xlsm")  

       FYI, this is accepted, but then the file is NOT FOUND
                MyPath = "%PC1d%\fname.xlsm"

                Set owb = oxl.Workbooks.Open("MyPath")

I've actually spent weeks unsuccessfully trying to resolve this puzzle

THANKS!

Lewis, thank you so much for the quick response.

I had tried various drafts of GetEnvironmentVariableValue,
and I learned about all kinds of possible error combinations
on my part!

I must be daft, but here's what I entered, and I got
"Expected end of statement" for " Dim sDriveLetter As String"


Exact code entered is
~~~~~~~~~~~~~~~~~~~~~

' Excel to open in own new window with variable drive letter from SysVar: PC1d is defined with value d:

On Error Resume Next
Set oxl = GetObject(, "excel.application")
Set oxl = CreateObject("excel.application")

If oxl Is Nothing Then
MsgBox "Cannot start Excel"

Else
   Set PRSNL = oxl.Workbooks.Open("C:\Program Files (x86)\Microsoft Office\Office14\XLSTART\Personal.xlsb")

Sub GetEnvironmentVariableValue()
  Dim sDriveLetter As String
'                    >>>>>>>> Err Msg for above line says: Expected end of statement
  sDriveLetter  = Environ("PC1d")
'               MsgBox "Environ(""UserName"")=" & sUserName
End Sub

oxl.Visible = True
Set owb = oxl.Workbooks.Open("sDriveLetter \subdir\FileName.xlsm")

If owb Is Nothing Then
MsgBox "Cannot open file"
Else
owb.Visible = True
oxl.Windows(1).WindowState = -4137 'xlMaximized
End If

End If

' end vbs script