VB字符串 一个奇怪的问题

各位好.今天用VB发现一个奇怪的问题
Dim B1(0 To 7) As Byte
Dim Str1 As String
Dim ptextbyte() As Byte
    B1(0) = 85
    B1(1) = 223
    B1(2) = 83
    B1(3) = 249
    B1(4) = 192
    B1(5) = 174
    B1(6) = 60
    B1(7) = 89
Str1 = B1
ptextbyte = Str1  '到这一步ptextbyte显示正常
objApp.ActiveInspector.CurrentItem.Body = temp '把它赋值给当前邮件体.类型也是String
ptextbyte = objApp.ActiveInspector.CurrentItem.Body 
'到这里ptext已经把前面2个字节丟了.这是怎么回事.换其它的有时正确,有时不正确.恳请各位高人指点.