Thanks Sir,

when we put this line
ActivePresentation.CreateVideo FileName:=Environ("USERPROFILE") & "\Desktop\ & myVideo & ".wmv", _

Got error stating:

Compile error:
Expected: end of statement


with highlighted "." before wmv