Private Type OPENFILENAME
   lStructSize As Long
   hwndOwner As LongPtr
   hInstance As LongPtr
   lpstrFilter As String
   lpstrCustomFilter As Long
   nMaxCustFilter As Long
   nFilterIndex As Long
   lpstrFile As String
   nMaxFile As Long
   lpstrFileTitle As String
   nMaxFileTitle As Long
   lpstrInitialDir As String
   lpstrTitle As String
   Flags As Long
   nFileOffset As Integer
   nFileExtension As Integer
   lpstrDefExt As String
   lCustData As LongPtr
   lpfnHook As LongPtr
   lpTemplateName As Long
End Type

Private Declare PtrSafe Function GetSaveFileName Lib "comdlg32.dll" Alias "GetSaveFileNameA" ( _
  lpOFN As OPENFILENAME _
) As Boolean