Здравствуйте, ma3ai, Вы писали:

M>Здравствуйте, LantY, Вы писали:

LY>А что ты хочешь получить на выходе???
M>1. к примеру показ/поиск/другая обработка списков сообщений написанных посетителями на разных языках (кодировках)
M>2. список файлов/папок (eng, cyr)
M>пока хватит...

Я провел следующий эксперимент:

Dim a As String
Dim b As String
Dim fff As New FileSystemObject
Dim f As Files
Dim ph As Folder
Dim q As File

Private Sub Form_Load()
  Set ph = fff.GetFolder("C:\LantY\New Folder") 'папка с файлами как на твоем рисунке...
  Set f = ph.Files
  For Each q In f
    ListBox1.AddItem q.Name
  Next q
  a = "-=ßaßßßasüqß++üá´d´z" 'Текст в немецкой кодировке.
  b = "âê^qûî$fbv$"         'Текст в французской кодировке.
  TextBox1.Text = a
  TextBox2.Text = b
End Sub

Private Sub TextBox1_Change()
  a = TextBox1.Text
  TextBox2.Text = a
End Sub

Получил: а) Начальные значения переменных a и b выводятся не корректно (подозреваю, что это проблема редактора)
б) В textbox1 пишу текст в любой из 4-х кодировок (en, ru, de , fr) (можно смешивать). В обеих textbox он отображается коректно. (я даже копировал из Explorer название файла на французском языке — тоже все ОК).
ОДНО НО!!! Пришлось использовать не стандартные VB компоненты, а библиотеку MS Forms 2.0

Я уже писал в предыдущем сообщении: попробуй работать со входными строками AS IS. И забуть про конвертацию.