codice:
Private Sub Rinonima()
Dim Cont As Integer
Dim OldFileName As String
Dim NewFileName As String

For Cont = 0 To File100.ListCount - 1
  If File100.Selected(Cont) = True Then
    OldFileName = File100.List(Cont)
    NewFileName = File100.Path & "\" & Text1.Text & Right(File100.List(Cont), 4)
    Exit For
  End If
Next Cont
If OldFileName <> "" And NewFileName <> "" Then
  Name OldFileName As NewFileName
End If
End Sub