Manually insert Word Document Path via a InputBox in a Macro

Hi!
I'm new to the forum but have seen some great replies and hope I can get some help. Here is my problem. I have created a Macro that creates a Word document. The path of where the document is saved to is hard coded into the Macro. What I need is code that will allow the user to enter the path they want to store the document in once it is created. This will help when the Excel document is used by different users. I'm trying to avoid using a constant. Here is a copy of the code I am currently using:

Sub CreateNewWordDoc()

Const strPath As String = "C:\Users\Tiny\Desktop\CaseFolder\" 'The last characters has to be a "\"

myMsg1 = "Do you want to create a Word Document?"
myTitle = "Create Word Document"

Select Case MsgBox(myMsg1, vbQuestion + vbYesNo, myTitle)
    Case vbYes
    
    strFileName = InputBox("Please enter file name", "Create new file")
        
    Set wrdApp = CreateObject("Word.Application")
    
    wrdApp.Visible = True
    
    Set wrdDoc = wrdApp.Documents.Add
     
    With wrdDoc
        
        extension = ".docx" '".doc"

        If Dir(strPath & strFileName & extension) <> "" Then
            Kill "strPath & strFileName & extension"
            
        End If
        
        On Error Resume Next
        
        .SaveAs (strPath & strFileName & extension)
        
        .Close ' close the document
        
        
    End With
    
    
Dim Word As Object: Set Word = CreateObject("Word.Application")
 
    Word.Visible = True
    
    Set docWD = Word.Documents.Open(strPath & strFileName & extension)

    wrdApp.Quit ' close the Word application
    Word.Quit ' close Word sheet
    Set wrdDoc = Nothing
    Set wrdApp = Nothing
    
    Case vbNo
    
End Select


End Sub

Sub CreateNewWordDoc()
myMsg1 = "Do you want to create a Word Document?"
myTitle = "Create Word Document"
Select Case MsgBox(myMsg1, vbQuestion + vbYesNo, myTitle)
    Case vbYes
    strFileName = InputBox("Please enter full file name (with path and extension)", "Create new file")
    Set wrdApp = CreateObject("Word.Application")
    wrdApp.Visible = True
    Set wrdDoc = wrdApp.Documents.Add
    With wrdDoc
        If Dir(strFileName) <> "" Then Kill strFileName
        .SaveAs (strFileName)
        .Close ' close the document
    End With
    wrdApp.Quit ' close the Word application
    Set wrdDoc = Nothing
    Set wrdApp = Nothing
    Case vbNo
    
End Select
End Sub

A different user interface would be

' ...
strFileName = Application.GetSaveAsFilename
If strFileName = "False" Then Exit Sub: Rem cancel pressed
'...
docWD.SaveAs strFileName, FileFormat:=wdFormatDocument
'...

As that takes care of your original question, please select Thread Tools from the menu link above and mark this thread as SOLVED,as per Forum Rule #9. Thank you.

Also, as a new member of the forum, you may not be aware that you can thank those who have helped you by clicking the small star icon located in the lower left corner of the post in which the help was given. By doing so you can add to the reputation(s) of those who helped.