Visual Basic - Renombrar archivo en vb6

Public Sub RenombrarInforma(ByVal Fecha As Date, ByVal Ruta as String)

    Dim D As String

    If Right(Ruta,1)<>"\" then Ruta = Ruta & "\"

    D = Dir(Ruta & "PRODUCCION_" & Format(Fecha, "yyyymmdd") & "*.txt")

    If D <> "" Then Name Ruta & D As Ruta & Left(D, 19) & ".txt"

End Sub

RenombrarInforme Now, "C:\Informes"

Public Sub RenombrarInforma(ByVal Fecha As Date, ByVal Ruta as String)

Public Sub RenombrarInforme(ByVal Fecha As Date, ByVal Ruta as String)

Dim Nombre As String, Fichero As String

Nombre = "PRODUCCION_" & Format(Date, "YYYYMMDD")

Fichero = Dir(Nombre & "*.TXT")

If Len(Fichero) > 0 Then

    name Fichero AS Nombre & ".TXT"

End If

name "PRODUCCION_20240215*.TXT" AS "PRODUCCION_20240215.TXT"

PRODUCCION_20240215 211003.txt -- > PRODUCCION_20240215.txt (OK)

PRODUCCION_20240215 211014.txt -- > PRODUCCION_20240215.txt (Error el archivo ya existe)

PRODUCCION_20240215 211025.txt -- > PRODUCCION_20240215.txt (Error el archivo ya existe)

PRODUCCION_20240215 211003.txt -- > PRODUCCION_20240215_1.txt (OK)

PRODUCCION_20240215 211014.txt -- > PRODUCCION_20240215_2.txt (OK)

PRODUCCION_20240215 211025.txt -- > PRODUCCION_20240215_3.txt (OK)