Option Explicit

 Private Declare Function lstrcpyn Lib "kernel32" Alias "lstrcpynA" _

   (DesStr As Any, _

    SrcStr As Any, _

    ByVal Maxlen As Long) As Long

Private Declare Sub RtlMoveMemory Lib "kernel32" (lpvDest As Any, lpvSource As Any, _

    ByVal cbCopy As Long)

Dim sData As String

Dim lShareData1 As String

Dim ss(1) As Double

Dim lShareData2(1) As Double

Private Sub Form_Load()

lShareData1 = "sdfa"

    sData = String(&H100, vbNullChar)

    Call lstrcpyn(ByVal sData, ByVal lShareData1, &H100)

Debug.Print sData

lShareData2(0) = 1.1

lShareData2(1) = 2.2

    Call RtlMoveMemory(ByVal VarPtr(ss(0)), ByVal VarPtr(lShareData2(0)), 32)

Debug.Print ss(0) & " " & ss(1)

End Sub