Dim a() as String = {"Tokyo","Osaka","Nagoya"}
Dim b(,) as Stirng() = {{"1","Tokyo"},{"2","Osaka"},{"3","Nagoya"}}