Vb 6 using clipboard with Unicode

Option Explicit
 
Private Declare Function OpenClipboard Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function CloseClipboard Lib "user32" () As Long
Private Declare Function SetClipboardData Lib "user32" (ByVal wFormat As Long, ByVal hMem As Long) As Long
Private Declare Function EmptyClipboard Lib "user32" () As Long
 
Private Declare Function GlobalAlloc Lib "kernel32" (ByVal wFlags As Long, ByVal dwBytes As Long) As Long
Private Declare Function GlobalFree Lib "kernel32" (ByVal hMem As Long) As Long
Private Declare Function GlobalLock Lib "kernel32" (ByVal hMem As Long) As Long
Private Declare Function GlobalReAlloc Lib "kernel32" (ByVal hMem As Long, ByVal dwBytes As Long, ByVal wFlags As Long) As Long
Private Declare Function GlobalSize Lib "kernel32" (ByVal hMem As Long) As Long
Private Declare Function GlobalUnlock Lib "kernel32" (ByVal hMem As Long) As Long
 
Private Const GMEM_DDESHARE = &H2000
Private Const CF_UNICODETEXT = 13
 
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (lpvDest As Any, lpvSource As Any, ByVal cbCopy As Long)
 
Dim pubTempFolder As String
 
Sub exportFlexGrid2(grddet As Object, includeHeader As String)
 
    Dim extStartCol     As Long
    Dim i               As Long
    Dim j               As Long
    Dim MsgString       As String
    Dim expStr          As String
    Dim bulkInput       As String * 25000
    Dim Response        As Integer
    Dim hMem As Long, pMem As Long, StringToCopy As String
    Dim b()             As Byte
    
    includeHeader = "N"
    
    If includeHeader = "Y" Then
        extStartCol = 0
    Else
        extStartCol = grddet.FixedRows
    End If
    
    For i = extStartCol To grddet.Rows - 1
        For j = 0 To grddet.Cols - 1
            expStr = expStr & stripChr10(stripDblQuote(filterCRLF(grddet.TextMatrix(i, j)))) & Chr(9)
        Next j
        expStr = expStr & vbCrLf
    Next i
 
 
    UnicodeFile_Write_VB pubTempFolder & "\ExportWork.dat", expStr
 
    expStr = UnicodeFile_Read_VB(pubTempFolder & "\ExportWork.dat")
    
    b = expStr & ChrW(0)
    
    Call OpenClipboard(Me.hwnd)
    Call EmptyClipboard
    
    
   hMem = GlobalAlloc(GMEM_DDESHARE, UBound(b))
   If (hMem <> 0) Then
      ' Get pointer to the memory block:
      pMem = GlobalLock(hMem)
      ' Copy the data into the memory block:
      CopyMemory ByVal pMem, b(0), UBound(b)
      ' Unlock the memory block.
      GlobalUnlock hMem
      ' Now set the clipboard data:
      SetClipboardData CF_UNICODETEXT, hMem
   End If
    
    Call CloseClipboard
 
    MsgString = ""
    MsgString = MsgString & "Export Successfully Completed " & Chr(13) & Chr(13)
    MsgString = MsgString & "(Data has been cut to the ClipBoard - Typically you paste the data into Excel)"
    Response = MsgBox(MsgString, , "Notification")
 
End Sub
 
Public Sub UnicodeFile_Write_VB(ByVal sFileName As String, _
   ByVal sText As String)
 
   Dim FF               As Long
   Dim b()              As Byte
 
   FF = FreeFile
   Open sFileName For Binary Access Write As #FF
   'Insert BOM UTF-16
   ReDim b(1)
   b(0) = &HFF
   b(1) = &HFE
   Put #FF, , b
   b = sText
   Put #FF, , b
   Close #FF
End Sub
 
Public Function UnicodeFile_Read_VB(ByVal sFileName As String) As String
  
   Dim FF               As Long
   Dim b()              As Byte
   Dim s                As String
   
   On Error Resume Next
 
   FF = FreeFile
   Open sFileName For Binary Access Read As FF
   ReDim b(LOF(FF) - 1)
   Get FF, , b
   Close FF
   'Detect file encoding
   If b(0) = 255 And b(1) = 254 Then 'UTF-16
      UnicodeFile_Read_VB = b
   End If
End Function
                                              

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:
105:
106:
107:
108:
109:
110:
111:
112:
113:
114:
115:
116: