>>2 
こんにちは 
 
>Dim sc As Variant   
はホントですか？ 
Dim sc() As Variant とかDim sc(要素数) As Variant 
にしてないんですか？ 
本来は要素数をあらかじめ指定 
Dim sc(要素数) As single 
か、 
Dim sc() As single 
か 
Dim sc() As double 
として、要素数でredimするのが一般的です。 
 
>Dim wd, hght As Variant  
は 
Dim wd As Variant  
Dim hght As Variant  
と同義で 
Dim wd, hght 
とも同義です。 
 
先ずは、 
Variant は万能ですが、キチンとデータ型を指定してやってはどうでしょう？