How do I copy a file to the same directory?

Hey everybody,

I've been using Excel for awhile now, and recently starting using vba. I think I'm getting in over my head, but I wanted to give it a shot. What I want to do with this macro is copy a file to the same directory using the same file name, but adding the text from an input box to the end of it with an underscore. Here it is...

Sub Macro3()

 Dim strOrder As String
 Dim varGetPath As Variant
 
   strOrder = InputBox("Enter the Order number.")
   varGetPath = ThisWorkbook.FullName
   
    ThisWorkbook.SaveAs FileName:= _
        ("varGetpath" & "_strOrder"), FileFormat:= _
        xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
        
End Sub

A couple of unexpected things are happening here. 1. The file is being saved as "varGetpath_strOrder.xlsm" and not as the file name with the inputbox text and 2. It's saving in my C:/Users/Libraries/Documents folder instead of the desktop folder it originated from. I thought it would be pretty simple to do this, but I'm sure I'm missing a good chunk of code. I'm using the new office 365.