I would like to have PDU Encoding VB Function (For SMS)

I would like to have PDU Encoding VB Function (For SMS)
Could you please give me if you have?

Thanks so much.

Because I would like to develop SMS Application (Thai & Chinese Language Supported) by using VB6.0

I have posted code on www.planet-source-code.com for encoding-decoding pdu you can check there