用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)

dim a as integer,b as integer ,c as integer
a＝text1.text
b＝text2 text
c＝text3.text
if a＞b and b＞c then
text4.text＝a
text5.text＝b
text6.text＝c
elseIf a＞c and c＞b then
text4.text＝a
text5.text＝c
text6.text＝b
elseIf b＞a and a＞cthen
text4.text＝b
text5.text＝a
text6.text＝c
elseIf b＞c and c＞a then
text4.text＝b
text5.text＝c
text6.text＝a
elseIf c＞a and a＞b then
text4.text＝c
text5.text＝a
text6.text＝b
else c＞b and b＞a then
text4.text＝c
text5.text＝b
text6.text＝a
end if
end sub