*****************求助高手，急***************************

Question

Option Explicit
          Dim Buffer(4095) As String       Private Sub cmd_Click()
          Dim mLength As Long
          mLength = mUploadData(Buffer, 4096)     
       End Sub
     Private Function mUploadData(ByRef iBuffer As String, ByVal iLength As Lo
ng) As Long
    
   mUploadData = 0
      
   End Function本意是Buffer（4095）用作数据缓冲区，但编译出现：
      窗体上只有一个cmd按钮，可是一运行，按下按钮，就提示：
        ByRef argument type mismatch
望达人告知，什么原因啊？在不改动mUploadData函数的前提下该怎样修改呢？
先谢谢了。

Answer 1

ByRef iBuffer As String 和 Buffer(4095) As String 的类型，怎么能用呢！
  
————————————————————————————————————
写作，虽然每个人都会查阅辞海，可，不是人人都能写出不朽的篇章的。编程，如是也。