Противоречия с ANSI & UNICODE

Public Declare Function WideCharToMultiByte Lib 'kernel32' _
                              (ByVal codepage As Long, _
                               ByVal dwFlags As Long, _
                               ByVal lpWideCharStr As Any, _
                               ByVal cchWideChar As Long, _
                               ByVal lpMultiByteStr As Any, _
                               ByVal cchMultiByte As Long, _
                               ByVal lpDefaultChar As String, _
                               ByVal lpUsedDefaultChar As Long) As Long
 
Private sub Test()
 
  Dim str As String
  Dim strA() As Byte
  Dim StrFromW As String
  
  str = 'Hello'
  ReDim strA(0 To 2 * LenB(str))
  Call WideCharToMultiByte(CP_ACP, 0, StrPtr(str), -1, _
                           VarPtr(strA(0)), LenB(str), 0, 0)
  ' StrA includes ANSI string 
   
   StrFromW = '       '
   CopyMemory StrFromW, VarPtr(strA(0)), LenB(str)
  ' StrFromW includes UNICODE
  
  CopyMemory strA(0), ByVal StrPtr(StrFromW), LenB(StrFromW)
  ' StrA includes UNICODE
  
  Call WideCharToMultiByte(CP_ACP, 0, StrPtr(str), -1, _
                           StrFromW, LenB(str), 0, 0)
  ' StrFromW includes UNICODE
 
End sub