SMS PDU coder/decoder на VB

Р.Х.19 лет в сервисе
Данные заказчика будут вам доступны после подачи заявки
07.07.2006

Необходима действующая функция на VB переводящая текст в PDU океты и обратно (для отправки SMS сообщений).

Необходимы исходники в виде:

Private Function PduToString (s As String) As String

......

......

End Function

И, соответственно

Private Function StringToPdu (s As String) As String

......

......

End Function

Функции кодирования/раскодирования только текстовой части сообщения (после окета длины сообщения TP-UDL )