static extern uint DoEnvironmentSubst(StringBuilder pszString, uint cbSize);

Private Declare Function DoEnvironmentSubst Lib "shell32.dll" Alias "DoEnvironmentSubstW" (ByVal szString As String, ByVal cbString As Long) As Long