Snippet Library

none

Private Sub button_Click() 
    Dim iFileNum As Integer 
    Dim sFileName As String
    
    With CommonDialog1
        .CancelError = True
        .DefExt = "txt"
        .Filter = "Text files|*.txt|All files|*.*"
        'the above properties can be set during design time
        .Flags = cdlOFNPathMustExist + cldOFNHideReadOnly + cdlOFNOverwritePrompt
        On Error Resume Next
        .ShowSave
        If Err = cdlCancel Then
            'the user click on the cancel button so bail out
            Exit Sub
        End If
        sFileName = .Filename
    End With
    iFileNum = FreeFile 
    Open sFileName For Output As iFileNum 
    Print #iFileNum, form.textbox.Text 
    Close iFileNum 

    basic.Text = form.textbox.Text 
End Sub;