utf8轉big5語法

Function encode_fun(ByVal detail)
'轉碼功能 utf8->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_fun = System.Text.Encoding.Default.GetString(strBig5)
End Function