TextBox Has Numericals, Value is String of Hexadecimals

Hi, I am trying to implement a bit of code into the "Save" button of a UserForm where when the user clicks "Save" the file will be saved in a certain folder with the filename equal to an ID number they enter in TextBox6. If I use the following code...

Code:

---

'Declare variables for saving file
Dim Path As String
Dim FileName As String
Path = "X:\Path\To\Folder\"
FileName = Me.TextBox6.Value & ".xlsm"
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Path & FileName, FileFormat:=52
Application.DisplayAlerts = True

---

...then the filename comes out in a hexidecimal string rather than the actual number typed in Me.TextBox6.

If I decide to sacrifice the ".xlsm" in the hopes that FileFormat:=52 will render the extension correctly, I try this variation...

Code:

---

'Declare variables for saving file
Dim Path As String
Dim FileName As Long
Path = "X:\Path\To\Folder\"
FileName = Me.TextBox6.Value
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Path & FileName, FileFormat:=52
Application.DisplayAlerts = True

---

...I get a slightly different hex filename. What I need is VBA to pass whatever is typed in the ID field ("123456") to be passed to the FileName variable in such a way that the ActiveWorkbook.SaveAs command will save the file as "X:\Path\To\Folder\123456.xlsm" ...

I am new to VBA, using Excel 2010, and have tried googling. Any help is appreciated.

As another troubleshooting step I tried adding a line before Application.DisplayAlerts = False that calls a MsgBox that displays the FileName variable, and it prints on the screen correctly. So what is happening to the value when that variable is passed to the SaveAs command?

What happens with

Code:

---

FileName = TextBox6 & ".xlsm"

---

Me. and .Value are usually superfluous.

and

Code:

---

FileName = CStr(TextBox6) & ".xlsm"

---

I don't see why you're getting a "Hex string"

reduce the code to

Code:

---

Sub M_save()
    ActiveWorkbook.SaveAs "X:\Path\To\Folder\" &  TextBox6.Text & ".xlsm", 5
End Sub

---

Avoid variables that do not vary.