Private Sub cmdSave_Click()
  Dim F As Integer
 
  On Error Resume Next
  With CommonDialog1
    .CancelError = True
    .ShowSave
    If Err = 0 Then
      F = FreeFile 
     Open App.Path & "Test.dat" For Binary As #F 
      Put #F, , myPropBag.Contents 
      Close #F       
    End If
  End With
End Sub