The following code is used in vb6.

'UPGRADE_ISSUE: Constant vbUnicode was not upgraded. Click for more: 'ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?ke yword="55B59875-9A95-4B71-9D6A-7C294BF7139D"'
di.Model = StrConv(System. Text.UnicodeEncoding.Unicode.GetStr ing(SwapBytes(I DSEC.sModelNumb er)), vbUnicode)

'UPGRADE_ISSUE: Constant vbUnicode was not upgraded. Click for more: 'ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?ke yword="55B59875-9A95-4B71-9D6A-7C294BF7139D"'...