можно ли код VB перенести в VBA?

Sub RenameMy()
Dim MyPath As String, nameOLD As Variant
iPath = ActiveDocument.Path
iPath = ActiveDocument.Path & "\"[COLOR="DarkGreen"] 'добавили слешку для корректной работы Dir'a[/COLOR]
iFileName = Dir(iPath & "*.bmp")
     Do While iFileName <> ""
     nameNew = "" [COLOR="DarkGreen"]'заготовили чистую переменную[/COLOR]
     For i = 1 To Len(iFileName) [COLOR="DarkGreen"]'перебираем буковки[/COLOR]
    myletter = Mid(iFileName, i, 1) [COLOR="DarkGreen"]'выудили i-ю буковку[/COLOR]
If Asc(myletter) > 209 And Asc(myletter) < 222 Then
myletter = 1 [COLOR="DarkGreen"]'избавляемся от проблемных 209-222 символов[/COLOR]
End If
nameNew = nameNew & myletter [COLOR="DarkGreen"]'не спеша добавляем в пустую переменку по буковке _
одну за другой :) [/COLOR]
Next
MsgBox nameNew [COLOR="DarkGreen"]'до этой строки все прекрасно[/COLOR]
Name File1.Path & "\" & iFileName & ".bmp" As File1.Path & "\" & nameNew & _
".bmp" 'тут остановка, т.к. опять же [COLOR="Red"]Object Required[/COLOR]
iFileName = Dir
Loop
End Sub

Private Sub RenameBMPFile()
    iPath$ = ActiveDocument.Path & "\"
    iFileName$ = Dir(iPath$ & "*.bmp")
    Do While iFileName$ <> ""
       iTempName$ = iFileName$
       For iCount% = 1 To Len(iFileName$) - 4
           iSymbol$ = Mid(iFileName$, iCount%, 1)
           If iSymbol$ Like "[Т-Э]" Then _
           Mid(iTempName$, iCount%, 1) = "1"
       Next
       If iTempName$ <> iFileName$ Then _
       Name iPath$ & iFileName As iPath$ & iTempName$
       iFileName = Dir
    Loop
End Sub