Dear Experts

With the following macro I am able to change Non English File Name without any problem. I do not know how to use this macro rename multiple files.
Please help me.
ChangeFileName(sFile, tFile)
    On Local Error GoTo errors
    Dim fs, f, s
    Set fs = CreateObject("Scripting.FileSystemObject")
    fs.MoveFile sFile, tFile
    Set f = Nothing
    Exit Sub
errors:
    MsgBox "File: " & sFile & vbCrLf & Err.Description
    Err.Clear
End Sub

Sub test()
    Const sDir = "C:\Users\TOSHIBA\Desktop\Fotos\"
    ChangeFileName sDir & Range("B3").Value, sDir & Range("C3").Value
End Sub
Also the above code doesn't save the file name as "*.jpg"
Thanking you

Yours sincerely
Buvanamali