For some reason Edit is not working! It should be
JoinedFeb 2007Posts1,969Location

This line
ActivePresentation.CreateVideo FileName:=Environ("USERPROFILE") & "\Desktop\myVideo.wmv", _

Needs to be

ActivePresentation.CreateVideo FileName:=Environ("USERPROFILE") & "\Desktop\ & myVideo & ".wmv", _