機能引きスクリプト・リファレンス
組込み関数 len() を使う
n = len( hairetsu )
Dim で配列を定義した後、 さらに ReDim で多次元配列にする
Dim strName() As String ReDim strName(1, 4)