사진 파일 이름들을 보기 좋게 일괄 변경하고 싶습니다

Sub NumberingJPGFiles()
 
    Dim path As String
    Dim file As String
    Dim rowIndex As Long
    Dim Dict As Object
 
    path = "C:\Users\HOME\Desktop\테스트\"  '다운받은 카톡 사진파일이 들어 있는 디렉토리    
 
    Set Dict = CreateObject("Scripting.Dictionary")
 
    file = Dir(path & "*.jpg")
    rowIndex = 1
 
    Do While Len(file) > 0
        If Len(file) >= 22 Then
            Key = Left(file, 19)        'KakaoTalk_20230218_  여기까지를 키값으로함.
            Dict(Key) = Dict(Key) + 1   '같은 날짜면 숫자증가
 
            FromFile = path & file
            ToFile = path & Key & Format(Dict(Key), "000.jpg")
            'Cells(rowIndex, "A").Value = FromFile
            'Cells(rowIndex, "B").Value = ToFile
 
            Name FromFile As ToFile  ' 파일명 변경함
 
            rowIndex = rowIndex + 1
        End If
 
        file = Dir()
    Loop       
 
End Sub