一个写文件如何会多出variant头

一个写文件怎么会多出variant头？
编程时遇到的，

function   GetBin()     '读取二进制图片
      set   oAs=CreateObject( "adodb.stream ")
      oAs.Type=1
      oAs.mode=3
      oAs.Open
      oAs.LoadFromFile   "测试图片.jpg "
      oAs.Position=0
      GetBin=oAs.Read(-1)
      oAs.close
end   function
 
Sub   WriteBin()
      dim   lngFileNum
      lngFileNum=FreeFile
      Open   "输出图片.jpg "   for   binary   as   #lngFileNum
      Put   #lngFileNum,,GetBin()               ' <---------------错误处
end   Sub

我在写图片文件时，用上述方法，出现“输出图片”比输入图片大大约10个字节的问题，分析后发现时Variant的类型头。我把函数改成下情况后正常：

      lngFileNum=FreeFile
      Open   "输出图片.jpg "   for   binary   as   #lngFileNum
dim   binTmp()   as   byte
      binTmp=GetBin()
      Put   #lngFileNum,,binTmp


请教
为什么会出现这种情况，GetBin（）不是返回的是byte()类型吗，怎么会有variant和byte（）两种形式？？？




[解决办法]
function GetBin() '读取二进制图片
=================================
改成function GetBin() as byte()就可以了
明确指定函数返回byte()，而不是variant
[解决办法]
就是，你的函数返回值类型决定了写文件的变量类型。