creare un file txt vb6 ???

[Johnny_Depp]

Private Sub Command1_Click()
    Dim pntFILE As String
    pntFILE = Dir$("C:\Documenti\*")
    While pntFILE <> ""
        If pntFILE = "provaTESTO.txt" Then
            Text1.Text = "EXIST"
            Exit Sub
        Else
            Text1.Text = "NON TROVATO"
        End If
        pntFILE = Dir$
    Wend
End Sub