为什么我赋值的一个字符串被自动截成了255个字节？

Question

我先dim一个string，然后赋了一个长字符串进去，当把这个string作为参数传给函数时发现被截断了，只有255个字节长，怎么解决？谢谢

Answer 1

你是怎么定义的？应该string就可以的
dim a as sting 
a="dddddfgdtertaafdsbasdfbb..."

Answer 2

String * length 
定义定长的字符串,比如
dim aa as string*5000

Answer 3

Dim aa As Variant比较合适。

Answer 4

Dim a As String
Private Sub Form_Load()
a = String(500, "a")
MsgBox a, 0, Len(a)
MsgBox copya(a), 0, Len(copya(a))
End Sub
Function copya(ByVal a As String) As String
copya = Replace(a, "a", "b")
End Function