It is not difficult. Put the CreateFolders Function in the same module as your code. This creates any missing folders in the user's paths
Then replace the code segment 
newfol = TextBox1.Text & " " & TextBox2.Text
ChDir "C:\Users\amask\Desktop\userform"
On Error Resume Next
MkDir (newfol)
with
newfol = TextBox1.Text &  " " & TextBox2.Text
Createfolders Environ("USERPROFILE") & "\Desktop\userform\" & newfol
and replace
oDoc1.SaveAs "C:\Users\amask\Desktop\userform" & newfol & "" & "Document1.docx"
oDoc2.SaveAs "C:\Users\amask\Desktop\userform" & newfol & "" & "Document2.docx"
oDoc3.SaveAs "C:\Users\amask\Desktop\userform" & newfol & "" & "Document3.docx"
with
oDoc1.SaveAs Environ("USERPROFILE") & "\Desktop\userform\" & newfol & "\Document1.docx"
oDoc2.SaveAs Environ("USERPROFILE") & "\Desktop\userform\" & newfol & "\Document2.docx"
oDoc3.SaveAs Environ("USERPROFILE") & "\Desktop\userform\" & newfol & "\Document3.docx"
Then the code can be run by anyone and it will create the required folders as needed.