VBS скрипт ругается на несоответствие типов

Всем привет. Написал скриптик на VBS? и почему то выдает ошибку на цикле заполнения буфера. Комментарий к ней чуть ниже. Самое интересное в том что на VB.NET все работает, а на VBS почему то нет.
И еще один вопрос. Как можно объявить переменную со значением null ссылочного типа в VBS?.

Огромное спасибо за ответы:)

set sysIO = CreateObject("System.IO.MemoryStream")
set Stream = CreateObject("ADODB.Stream")

Stream.Type = 1
Stream.Open()
Stream.LoadFromFile("C:\qwe.txt")

Dim buf

Do Until Stream.EOS
buf = Stream.Read()
Loop

'==== здесь выдается ошибка несоответствие типов
For i = 0 To Stream.Size - 1
msgbox buf(i)
sysIO.WriteByte(buf(i))
Next

set CrLib = CreateObject("CryptoLibraryImp.SignatureManager")

sysIO.Position = 0

set SignedBytes = CrLib.SignBytes(Nothing, sysIO)

sysIO.Position = 0
SignedBytes.Position = 0

set FVerf = CrLib.Verify(SignedBytes, sysIO)

If FVerf.Subject <> "" Then
CrLib.ShowCertificateInfoDialog(FVerf)
End If