utf-8 轉 big5

Function encode_utf8big5(ByVal detail)
'utf-8 轉 big5

Dim strUtf8 As Byte() = System.Text.Encoding.Unicode.GetBytes(detail)
Dim strBig5 As Byte() = System.Text.Encoding.Convert(System.Text.Encoding.Unicode, System.Text.Encoding.Default, strUtf8)
encode_utf8big5 = System.Text.Encoding.Default.GetString(strBig5)

End Function