I ran into the truncation problem as well and the only simple but dirty solution for me was to force a 'Home' keystroke after displaying the File Dialogue:
Set objFileDialog = Application.FileDialog(3) ' msoFileDialogFilePicker = 3
objFileDialog.AllowMultiSelect = False
'...