Problema con IF (No se ha encontrado el archivo)

[rapbyone]

Amigos, les pido su ayuda, lo que quiero lograr es que a través de un optionbuton renombrar una carpeta, al seleccionar el optionbuton y presionar el botón aplicar se renombra un archivo.

El problema es que cuando el archivo ya se renombra, al volver a seleccionar el mismo botón, como el archivo ya fue renombrado, me da el error de (No se ha encontrado el archivo)

Este es el código:

Private Sub opci_Click()
'Si está seleccionado el Option1 se ejecuta la siguiente condición
If Option19.Value = True Then
  Name "c:\a.txt" As "c:\archivo.txt"
  MsgBox "Fuente por defecto", vbInformation + vbOKOnly
Else: Option19.Value = False
  MsgBox "Fuente cambiada", vbInformation + vbOKOnly
 
End If

Gracias amigos

[tincopasan]

pues agrega un procedimiento para saber si el archivo existe y si es así que se produzca el renombrado en caso contrario que omita el procedimiento. 

[rapbyone]

pues agrega un procedimiento para saber si el archivo existe y si es así que se produzca el renombrado en caso contrario que omita el procedimiento. 

Gracias por responder amigo, la verdad es que me parece efectiva la idea, pero no tengo los conocimientos para hacerlo, podrías orientarme un poquito por favor

Gracias amigos 

[tincopasan]

me parece que una forma relativamente fácil es hacer algo así:

Private Function Valida() As Boolean
On Error GoTo fallo
x = GetAttr("c:\a.txt")
Valida = True
Exit Function

fallo:
Valida = False
Exit Function
End Function

Private Sub opci_Click()
'Si está seleccionado el Option1 se ejecuta la siguiente condición
If Option19.Value = True Then
  if valida then
   Name "c:\a.txt" As "c:\archivo.txt"
   MsgBox "Fuente por defecto", vbInformation + vbOKOnly
Else: Option19.Value = False
   MsgBox "Fuente cambiada", vbInformation + vbOKOnly
end if 
End If

[rapbyone]

Perfecto amigo, un millón de gracias

[rapbyone]

Perdón por el doble post, gracias por la ayuda