Перекодировка текста в почте. Base64, Quoted - VB

Формулировка задачи:

вопрос следующего характера. Есть почтовое сообщение со стандартными заголовками но закодировано оно скажем Base64 ну или Quoted как его в нормальную кодировку сконвертировать? Спасибо

Решение задачи: «Перекодировка текста в почте. Base64, Quoted»

textual
                            Листинг программы 
                        

                            st = '=?windows-1251?B?yu7s7+Dt6P8g?=Associates =?windows-1251?B?7/Do4+vg+ODl8iDt4CDi+/Hy4OLq8yA=?=Infosecurity-2004'
Debug.Print DecodeMessageHeader(st)
'
или (для РЕЛИБовских сообщений):
'
st = 'RE: ъБРХУЛ РТПЗТБННЩ У CD'
Debug.Print DecodeMessageHeader(st, , 'koi8-r')
                        