@DIV
Private Sub SortEnum(ByVal Path As String)

	' 区切り文字定義
	Dim delimStr As String = ";"
	Dim delimiter As Char() = delimStr.ToCharArray()

	' 配列に分割
	Dim split As String() = Path.Split(delimiter)

	' ソート
	Array.Sort(split, split.GetLowerBound(0), split.Length)

	Dim str As String = ""
	For Each value As String In split

		str &= value & ControlChars.CrLf

	Next

	MessageBox.Show(str)

End Sub
@END