VBSで便利なプログラムを作れスレ

[615 デフォルトの名無しさん 2015/01/19(月) 22:34:01.04 ID:XQ8dBSiC]

ブロックスコープをやりたいのだが
Rem Blockscope.vbs
Option Explicit
Sample
Function Sample()
Dim I
I = 10
I = Used
Msgbox Typename(I) 'Variant()
Rem I = 20 'Error at Erase I
Rem Set I = Nothing 'Error at Erase I
Erase I
End Function
Function Used()
Dim J()
Used = J
End Function

人力でErase I てのがバカっぽい
なんとかなりませんか