请问字符串复制最快的方法是什么？

Question

String(number, character)String 函数的语法有下面的命名参数：部分 说明 
number 必要参数；Long。返回的字符串长度。如果 number 包含 Null，将返回 Null。 
character 必要参数；Variant。为指定字符的字符码或字符串表达式，其第一个字符将用于建立返回的字符串。如果 character 包含 Null，就会返回 Null。 
说明如果指定 character 的数值大于 255，String 会按下面的公式将其转为有效的字符码：character Mod 256
例如：
Dim MyString
MyString = String(5, "*")   ' 返回 "*****"。

Answer 1

就是说能不能比
dim str1  as string
dim str2  as string   str1 = "xxxxx"
   str2 = str1更快些，因为毕竟str1已经在内存中了CopyMemory?

Answer 2

Public Declare Function lstrcpy Lib "kernel32" Alias "lstrcpyA" (ByVal lpString1 As String, ByVal lpString2 As String) As LongPublic Declare Function lstrcpyn Lib "kernel32" Alias "lstrcpynA" (ByVal lpString1 As String, ByVal lpString2 As String, ByVal iMaxLength As Long) As Longlstrcpy 表示整串复制
lstrcpyn 表示复制前一串中的前面的几个字符，具体个数由iMaxLength决定。Dim str1 As String, str2 As String
    str1 = "abc"
    str2 = Space$(Len(str1))
    Call lstrcpy(str2, str1)