title: VBA Excel: Using SaveAs Dialog for Text Files/Custom File Types
body: <p>I have an Excel macro which writes a specific string to a text file. The catch is, I need to save it as a custom file (".us1"). I'm attaching my current code below. I ended up doing a weird reversal of the Open dialog. What would I do to switch this code to using the SaveAs Dialog? </p>
  
  <pre><code>Private Sub CommandButton2_Click()
  
  Dim fso As New FileSystemObject
  Dim stream As TextStream
  Dim FilePath As String
  Dim ofD As Object
  CommandButton2.Height = 53.25
  CommandButton2.Width = 83.25
  CommandButton2.Left = 222.75
  CommandButton2.Top = 508.5
  
  If OptionButton5.Value = True Then
  
      MsgBox "NOTE! This is a bi-phasic script. Every other bit, starting with the first, is a sign bit!!! DISREGARD the graph!!!"
  
      Set ofD = Application.FileDialog(3)
      ofD.AllowMultiSelect = False
  
      If ofD.Show = False Then
          MsgBox "Script Generation Canceled"
      Else
          FilePath = ofD.SelectedItems(1)
          Set stream = fso.OpenTextFile(FilePath, ForWriting, True)
  
          stream.WriteLine "F3 07 00 31 FA 12 // "
          stream.WriteLine "F3 07 00 31 FB " + Cells(27, 2) + " // "
          stream.WriteLine "F3 07 00 31 FC 00 // "
          stream.WriteLine "F3 25 00 31 FF " + Cells(33, 2) + "// "
          stream.WriteLine "F3 07 00 31 FA 13 // "
  
          stream.Close
      End If
  Else
      Set ofD = Application.FileDialog(3)
  
      ofD.AllowMultiSelect = False
  
      If ofD.Show = False Then
          MsgBox "Script Generation Canceled"
      Else
          FilePath = ofD.SelectedItems(1)
          Set stream = fso.OpenTextFile(FilePath, ForWriting, True)
  
          stream.WriteLine "F3 07 00 31 FA 10 // "
          stream.WriteLine "F3 07 00 31 FB " + Cells(27, 2) + " // "
          stream.WriteLine "F3 07 00 31 FC 00 // "
          stream.WriteLine "F3 25 00 31 FF " + Cells(33, 2) + "// "
          stream.WriteLine "F3 07 00 31 FA 11 // "
  
          stream.Close
      End If
  End If
  End Sub
  </code></pre>