VB返回值问题

Question

vb的sub main怎么样才能有一个返回值啊？
比如在A条件下返回值为1,在B条件下返回值为0

Answer 1

我需要编译成一个.exe程序，用function怎么返回·？

Answer 2

Public Function functionName() As Boolean  '返回值类型设置为Boolean类型
    If 条件A Then
        functionName=True
    ElseIf 条件B Then
        functionName=False
    Else
    End If
End Function调用:
Dim blnRlt As Boolean
blnRlt=functionName  '得到functionName的返回结果