При копировании получается пустая строка - VB

Формулировка задачи:

Option Explicit
Private Declare Function lstrcpy Lib "kernel32" Alias "lstrcpyA" (ByVal lpBuffer As Long, _
    ByVal lpStringToCopyTo As Long) As Long
Private Sub Form_Load()
    Dim strTheFirst As String * 255, strTheSecond As String * 255, lngRetval As Long
    strTheFirst = "Some_string"
    lngRetval = lstrcpy(StrPtr(strTheSecond), StrPtr(strTheFirst))
    Debug.Print strTheSecond
End Sub

Подскажите, почему может не работать код. В итоге при копировании получается пустая строка. Декларация функции lstrcpy изменена относительно стандартной, чтобы принимать копии указателей. Может нужно над строками какие-то действия выполнять, как это делает VB, если применять стандартное объявление as String, а не as Long.

Решение задачи: «При копировании получается пустая строка»

textual
                            Листинг программы 
                        

                            Option Explicit
 
Private Declare Function lstrcpy Lib "kernel32" Alias "lstrcpyW" (ByVal lpBuffer As Long, ByVal lpStringToCopyTo As Long) As Long
    
Private Sub Form_Load()
    Dim strTheFirst As String
    Dim buf         As String
    Dim lngRetval   As Long
    
    strTheFirst = "Some_string"
    
    buf = Space$(Len(strTheFirst))
    lngRetval = lstrcpy(StrPtr(buf), StrPtr(strTheFirst))
    
    Debug.Print Err.LastDllError
    Debug.Print buf
    End
End Sub
                        