>>1 
ありがとうございます！ 
 
初心者すぎてほんまに申し訳ありません  
 
宣言部分とはこれでいいんでしょうか？  
 
Dim NNN As Variant  
'ax()=ボロノイ点のx座標　ay()=ボロノイ点のy座標  
'ad()=原点とボロノイ点の距離  
Dim sxxo, syyo, sxyo, aspc As Variant  
Dim ntsbd, xcrtn, nssc, mlm, tn, ttsang As Variant  
Dim xrnyn, xrnwd, xrnmz As Variant  
Dim lmax, mmax, nmax As Variant  
Dim tnang(10000), tsang(10000), nang(10000, 20), sang(10000, 20), tc(10000) As Variant  
Dim sc As Variant  
Dim rnd As Variant  
'試験片の形状  
Dim wd, hght As Variant