COMMONDIALOG

[Aaron Young]

Try not to use all caps, it makes it hard to read as the words start to merge..

Try this:

Private Sub cmdLoad_Click()
    Dim I As Integer
    On Error GoTo UserCancel
    With CommonDialog1
        .DialogTitle = "Select Text File to Load.."
        .Filter = "Text Files|*.txt"
        .CancelError = True
        .ShowOpen
        I = FreeFile
        Open .FileName For Input As I
        Text1 = Input(LOF(I), I)
        Close I
    End With
UserCancel:
End Sub

Private Sub cmdSave_Click()
    Dim I As Integer
    On Error GoTo UserCancel
    With CommonDialog1
        .DialogTitle = "Save Text File As.."
        .Filter = "Text Files|*.txt"
        .CancelError = True
        .DefaultExt = ".txt"
        .ShowSave
        I = FreeFile
        Open .FileName For Output As I
        Print #I, Text1;
        Close I
    End With
UserCancel:
End Sub

------------------
Aaron Young
Analyst Programmer
[email protected]
[email protected]