vb6.0-用VB 6.0輸入三個數，用逗號分開，並且對它們進行排序運算

用VB 6.0輸入三個數，用逗號分開，並且對它們進行排序運算

完整的寫法怎麼寫？
用VB6.0輸入三個數，用逗號分開，並且對它們進行排序運算

最佳回答：

 dim s() as string
s = split(inputbox(), ",")
dim i(0 to 2) as long
dim x as long
for x = 0 to 2
    i(x) = val(s(x))
next
if i(0) > i(1) then t = i(0) : i(0) = i(1) : i(1) = t
if i(1) > i(2) then t = i(1) : i(1) = i(2) : i(2) = t
if i(0) > i(1) then t = i(0) : i(0) = i(1) : i(1) = t
msgbox i(0) & "," & i(1) & "," & i(2)