TextChanged事件,用逗号分隔字符。然后重新赋值
Dim str As String = "A,C,B"Dim ary As String() = str.Split(",")array.sort(ary)str = String.Join(",", ary)msgbox(str)