Just concatenate the needed strings, so something like:
Set objNetwork = CreateObject("WScript.Network")
strUserName = objNetwork.UserName
strFrom = "\\server\share old\" & strUserName & ".domain\folder"
strTo = "\\server\share new\" & strUserName & ".domain\folder"
~bp