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

M>Доброго времени суток.

M>Пришлось столкнуться с такой жуткой вещью как VB 6.0, помогите с проблемой, плз, нужно сформировать строчку в utf-8 никак не могу найти как это сделать

Попробуй подцепить в проект библиотеку ADO и использовать подобную процедуру:

Private Sub WriteTextToFile(ByVal FileName As String, _
                            ByVal Text As String, _
                            Optional ByVal Charset As String = "UTF-8")
 Dim Stream As ADODB.Stream
 Set Stream = New ADODB.Stream
 Stream.Open
 Stream.Position = 0
 Stream.Charset = Charset
 Stream.WriteText Text
 Stream.SaveToFile FileName
 Stream.Close
End Sub

См. в реестре названия ключей в ветке HKEY_CLASSES_ROOT\MIME\Database\Charset для задания параметра Charset.