I tried to use CopyMemory to copy Variant to String, but it did not work,
can you help me?

The Code:
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination
As Any, Source As Any, ByVal Length As Long)

Private Sub Command1_Click()
Dim sDes As String, vSou As Variant
vSou = "abc"
sDes = Space$(3)
CopyMemory ByVal sDes, ByVal VarPtr(vSou), 6
Debug.Print sDes
End Sub