پرسش خطای انتقال متن به حافظه سیستم

[ظهور 313]

سلام و عرض ادب خدمت كاربران محترم و اساتید گرامی

متنی دارم كه در ویندوز 7 به راحتی به حافظه سیستم منتقل میشه و هیچ مشكلی وجود نداره
اما در ویندوز 10 (البته همه سیستمها اینطوری نیست و تنها در برخی سیستمها این خطا وجود داره) متن به صورت دو تا كاركتر ناشناس به حافظه منتقل میشه
ممنون میشم دوستان اگر كسی میتونه كمك كنه
در مورد فرمول مورد استفاده، ابتدا با استفاده از یك حلقه، متن مورد نظر رو از ركوردهای مدنظرم ایجاد میكنم و بعد دستور انتقال به حافظه دادم:
لطفا ببینید ایراد كار كجاست؟
خیلی ممنون

Dim payam As String
lastrow = Sheets("NEV").Range("HQ:HQ").Cells.find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
For I = 2 To lastrow
If Sheets("NEV").Range("HR" & I) <> "" Then
FRMM_COPY.TextBox1.Text = FRMM_COPY.TextBox1.Text & vbCrLf & Sheets("NEV").Range("HS" & I).Value * 10 & "," & Sheets("NEV").Range("HT" & I).Value & ",," & Sheets("NEV").Range("HR" & I).Value
payam = payam & vbCrLf & Sheets("NEV").Range("HS" & I).Value * 10 & "," & Sheets("NEV").Range("HT" & I).Value & ",," & Sheets("NEV").Range("HR" & I).Value
End If
Next I


With New MSForms.DataObject
.SetText payam
.PutInClipboard
End With


MsgBox "ليست پرداخت ماهانه، با موفقيت به حافظه سيستم منتقل شد.", vbOKOnly, "پايان عمليات"

[alieddy0]

سلام
به نظر بنده با توجه به اطلاعاتی که دادید، مشکل میتونه از فونت های نصب شده در محیط ویندوز و vba باشه