Private Sub Command1_Click()

Dim contador As Long
Dim archivo As String
Dim ruta As String
label1.caption = 1
ruta = Dir$("c:\" & Label1.Caption & ".txt")
If ruta = "" Then
Open "c:\" & Label1.Caption & ".txt" For Output As #1
Print #1, , "ei"
close#1
Else
Label1.Caption = Label1.Caption + 1
Open "c:\" & Label1.Caption & ".txt" For Output As #1
Print #1, , "te"
Close #1
End If
End Sub

Dim contador As Long               'se me ha colao haciendo pruebas(ahora el contador es el label)
Dim archivo As String
Dim ruta As String
label1.caption = 1                  'el caption del label sea 1(podria ser 0)
ruta = Dir$("c:\" & Label1.Caption & ".txt")     'la variable ruta,comporbamos si existe c:\1.txt   si no existe no nos devuleve nada por eso if ruta=""
If ruta = "" Then            
Open "c:\" & Label1.Caption & ".txt" For Output As #1    'como no existe lo creamos
Print #1, , "ei"
close#1
Else     'si existe(osea que no devuelve cadena vaci sino que existe
Label1.Caption = Label1.Caption + 1        'le sumamso 1 al contador(el caption del label)
Open "c:\" & Label1.Caption & ".txt" For Output As #1      'abrimos esta vez será el nombre con 1 mas,es decir antes 1 ahora 2 despues 3....
Print #1, , "te"
Close #1
End If

Private Sub Form_Unload(Cancel As Integer)
Open "c:\contador.txt" For Output As 1
Print #1, , n
Close #1
End Sub
Private Sub Timer2_Timer()
Dim ruta1 As String
ruta1 = Dir$("C:\contador.txt")
If ruta1 = "" Then
n = 1
Else
Open "C:\contador.txt" For Input As #1
Dim texto As String
texto = Input(LOF(1), #1)
Close #1
n = texto+1
End If
KTime = KTime + 1
Label1.Caption = KTime
n = 1
If KTime = 100 Then
ruta = Dir$("c:\" & n & ".txt")
    If ruta = "" Then
    Open "c:\" & n & ".txt" For Output As #1
    Print #1, , Text1.Text
    Close #1
    Else
    n = n + 1
    Open "c:\" & n & ".txt" For Output As #1
    Print #1, , Text1.Text
    Close #1
    End If
Text1.Text = ""
KTime = 0
End If
End Sub