vb6 - vb6でバイト配列をバリアントとして返す方法

Question

以下の関数が返されるときに「型の不一致」というエラーをスローする理由を理解しようとしています。私がVB6について知っていることから、これは問題なく動作するはずですが、明らかにそうではありません。ここで私が間違っていることを誰かが見て、それを修正する方法を教えてもらえますか? 前もって感謝します。

Private Function GetByteArray(source As Variant, index As Integer, length As Integer) As     Variant
  Dim buff() As Byte
  ReDim buff(0 To length - 1)
  Dim i As Integer
  For i = 0 To length - 1
    buff(i) = CByte(source(index + i))
  Next i
  GetByteArray = buff
End Function