vba - 出力フォルダー内のファイルの名前を変更する

Question

2つのフォルダーを使用しています。1 つはすべての入力ファイルがある入力用で、もう 1 つは名前が変更されたファイルが保存される出力フォルダーです。

コードについては、以下を参照してください。関数を使って数値を変換しているのですStr()が、うまくいきません。なぜだかわかりません。また、必要な出力が得られません。

Str(m)が機能しておらず、タイプの不一致エラーが表示されます。

Sub ChangeFilename()

IFILEPATH = InputBox("Copy INPUT folder PATH")
OFILEPATH = InputBox("Copy OUTPUT folder PATH")
Dim strfile As String
Dim filenum As String

strfile = Dir(IFILEPATH)
startFile = InputBox("Start File NAME")
endFile = InputBox("End File NAME")
Dim r As Long
r = InputBox("Input INCREAMENT valu")
Do While strfile <> ""
    If (strfile = startFile) Then
        Do While strfile <= endFile
            x = Left(strfile, Len(strfile) - 4)
            x = Right(x, Len(x) - 2)
            y = Val(x)
            If y > 0 Or y < 9 Then
                Dim m As Long
                m = y + r
                Dim k As String
                'MsgBox Str(m)
                k = Str(m)        'This is the area where I am facing problem i.e Str(m) not WORKING and shows type mismatching Error
                x = "00" & k
                Name IFILEPATH & strfile As OFILEPATH & "eq" & x & ".eps"
            ElseIf y >= 9 Or y < 99 Then
                m = y + r
                x = "0" & k
                Name IFILEPATH & strfile As OFILEPATH & "eq" & x & ".eps"
            Else
                'x = Str(Val(x + r))
                Name IFILEPATH & strfile As OFILEPATH & "eq" & x & ".eps"
            End If
        Loop
    End If
    strfile = Dir
Loop

End Sub