'Find logged in user pst file and copy to back up location in vbs

I am trying to convert the following batch into vbs.. anyhelp would be much appreciated. ====>

FOR /F "tokens=1 delims=" %%a IN (%userprofile%\out.txt) DO (
 xcopy "%%a" H:\PST-Backup\
 )


Sources

This article follows the attribution requirements of Stack Overflow and is licensed under CC BY-SA 3.0.

Source: Stack Overflow

Solution Source