Function函数和 Sub函数 可以互相转换吗

如果可以的话

这段代码如何转换

<script language=vbscript>
Function Sum(Number)
Counter=0
For i=1 to Number
Counter=Counter + i
Next
'Sum = Counter
End Function
num=InputBox("请键入一个大于零的整数",1)
Document.write(Sum(num))
</script>

sub 没有返回值

function 是有返回值的

如转换则sub/function 要变，调用格式要变