VBA File Dialog .FileName removing .1 from end of file name
===

I am using visual basic to write a Macro for Autodesk Inventor. I created a macro that calls a file dialog, see code below. Everything works fine except when a user puts a file name in with a period and a number greater than zero following it. 

For example, if a user puts testfile.test in the box and hits ok. When I ask for what they put in there using .FileName, I get "testfile.test". Just like I should. 

However, if the user puts testfile.1 or testfile.10 or testfile.1mdksj or anything as long as a number greater than zero directly follows the period I get back "testfile". For some reason, everything after the period and the period gets removed. 

What is the reason for this? Is this a bug in visual basic or am I doing something wrong?

    'Set up the file dialog
    Dim oFileDlg As FileDialog
    ' Create a new FileDialog object.
    Call ThisApplication.CreateFileDialog(oFileDlg)
    'Define the filter to select part and assembly files or any file.
    oFileDlg.Filter = "All Files (*.*)|*.*"
    'Define the part and assembly files filter to be the default filter.
    oFileDlg.FilterIndex = 1
    'Set the title for the dialog.
    oFileDlg.DialogTitle = "Save File As"
    'Tell the dialog box to throw up and error when cancel is hit by user
    oFileDlg.CancelError = True

    'Show the file dialog
    On Error Resume Next
    oFileDlg.ShowSave

    'save the user specified file
    Dim newFileName As String
    newFileName = oFileDlg.FileName
