Выбор минимального из трех чисел

[calendar]

Помогите, пожалуйста!
У меня не работает программа.
вообще программа создана в MO SharePoint
с языком VBScript

Вот код:
<script LANGUAGE="VBScript">
<!--
Option Explicit
Dim A,B,C,D
A = CSng(InputBox ("Введите первое число"))
B = CSng(InputBox ("Введите второе число"))
C = CSng(InputBox ("Введите третье число"))
D = FunDemo(A,B,C)
MsgBox "Минимальное число равно "&D
Min=A
If B<Min Then Min=B End If
If C<Min Then Min=C End If
Function FunDemo (A,B,C)
FunDemo= A Or B Or C
End Function
-->
</script>

Может, скажите что не так?

[doober]

Написано в notepad++

Option Explicit
Dim A,B,C,D
A = CSng(InputBox ("Введите первое число"))
B = CSng(InputBox ("Введите второе число"))
C = CSng(InputBox ("Введите третье число")) 
D = FunDemo(A,B,C) 
MsgBox "Минимальное число равно "&D

Function FunDemo (A,B,C)
Dim Min
Min=A
If B<Min Then Min=B End If
If C<Min Then Min=C End If
FunDemo= Min
End Function