As 'final doc' is the folder then you want
Code:
strPath = Environ("USERPROFILE") & "\Documents\final doc\"
strPath = strPath & TextBox2.Text & "." & TextBox1.Text & ".docx"
and that folder must exist. Note the back slash at the end of the first line