Sub Convert2UTF(Path As String)
Dim stIN As New ADODB.Stream
Dim stOUT As New ADODB.Stream
Dim fl As File
    stIN.Type = adTypeText
    stIN.Open
    stOUT.Type = adTypeText
    stOUT.Open
    With New FileSystemObject
        With .GetFolder(Path)
            For Each fl In .Files
                stIN.Flush
                stIN.Charset = "windows-1251"
                stIN.LoadFromFile fl.Path
                stOUT.Flush
                stOUT.Charset = "utf-8"
                stOUT.WriteText stIN.ReadText
                stOUT.SaveToFile .Path & "\UTF\" & fl.Name
            Next
        End With
    End With
End Sub