Dim str As String = "1,2,3,4,5,6" Dim arr() As String = str.Split(","c) '結果を表示する For Each s As String In arr MessageBox.Show(s) Next