Почему булева функция возвращает false даже после ее успешного выполнения?

Question

У меня есть булева функция «Test» в Module1, например:

Function Test() As Boolean
MsgBox "Testing"
End Function

Теперь, даже после ее успешного выполнения, я получаю False.Почему это так?

If Module1.Test = True Then
MsgBox "True"
ElseIf Module1.Test = False Then
MsgBox "False"
End If

Заранее спасибо

Answer 1

Поскольку False является возвращаемым значением по умолчанию, если вы явно не указываете что-то другое, оно всегда будет возвращать False.

Чтобы изменить это, вы должны поместить эти операторы, где это необходимо, вфункция:

Test = False

Test = True