Fungsi Untuk Mengganti Extention Sebuah File | Visual Basic 6.0

Mengenai fungsi untuk mengganti extention sebuah file menggunakan kode VB6 - Bagaimanakah cara mengganti sebuah ekstensien pada file tanpa merubah nama file itu sendiri, misalnya file.zip menjadi file.rar atau file.exe.

Public Function ChangeFileExt(ByVal FileName As String, ByVal Extention As String) 
    Dim str() As String, NewFile As String 
    If InStr(1, FileName, ".") Then 
        str = Split(FileName, ".") 
        NewFile = Replace(FileName, str(UBound(str)), Extention) 
        Name FileName As NewFile 
    Else 
        Name FileName As FileName & "." & Extention 
    End If 
End Function 

Adapun cara penggunaan fungsi mengganti extension sebuah file adalah sebagai berikut:

Private Sub Form_Load() 
    Call ChangeFileExt("C:\bo.ot.tmp", "exe") 
End Sub