mi ruta patch prueba1 , prueba2 ,prueba3

[zeroyevi]

bueno necesito generar un patch que se autoincremente por lo menos de uno en uno

prueba.txt

prueba1txt
prueba2.txt
prueba3.txt

asi continuamente

lo unico que tengo la idea de guardar es

Dim VarTexto As String
Dim memoria As String
Dim cont, r As Integer

Text2 = ""
cont = 0



Open txtRuta For Input As #1

Do Until EOF(1)
Line Input #1, VarTexto
Text2 = Text2 & VarTexto & vbCrLf
memoria = VarTexto & vbCrLf
cont = cont + 1
txtCont = cont

'Line Input #fn, nombreleido

If cont <= 5 Then
'aca grabamos el archivo completo
Dim nfile As Integer
nfile = FreeFile


Open App.Path & "\prueba.txt" For Output As #nfile
Print #nfile, Text2.Text
Close #nfile
Else
'cont = 0
r = r + 1

End If


Loop
Close #1
'---------------------------------------------------


lo que necesito modificar es esto


Open App.Path & "\prueba.txt" For Output As #nfile

ejemplo

Open App.Path & "\prueba+numero+.txt" For Output As #nfile

pero como ???