VB6.0中，数组参数在过程调用的有关问题：类型不匹配,缺少数组或用户定义类型

VB6.0中，数组参数在过程调用的问题：类型不匹配,缺少数组或用户定义类型
Private Sub ChangeBytetoNot(DataByte As String, ResultOut() As String)
  Dim Data As Long, i As Integer, TempBuffer As String, Result As String
   
  Call ChangeBytetoBit(DataByte, Result)
   
  For i = 1 To 8
  Data = Mid(Result, i, 1)
  If Data = 1 Then
  TempBuffer = TempBuffer & "0"
  Else
  TempBuffer = TempBuffer & "1"
  End If
  Next i
  ResultOut = TempBuffer
End Sub

Private Sub Command1_Click()
  Dim Result(4) As String, Middata As String
   
  For i = 0 To 3
  Middata = Mid(Text1.Text, i * 2 + 1, 2)
  Call ChangeBytetoNot(Middata, Result(i)) 提示此处错误：类型不匹配,缺少数组或用户定义类型
  Next i
End Sub


帮我看看数组变量调用中里出错了，以前没有这样写过，给个解决方法呗，谢谢了。。。。

[解决办法]
Call ChangeBytetoNot(Middata, Result)
[解决办法]
Private Sub ChangeBytetoNot(DataByte As String, ResultOut As String)