AndAlso/OrElse in VBA

Question

Hey I'm trying to get a lazy evaluation 'And' in my my Excel macro to do something like:

If Not myObject Is Nothing *And* myObject.test() Then
    'do something'
Else
    'do something else'
End If

I know this exists in VB.NET as AndAlso and OrElse but cannot find anything similar in VBA. If this actually does not exist what's the best way to structure this?

Answer 1

If Not myObject Is Nothing Then
    If myObject.test() Then
        'do something'
    End If
Else
   'do something else'
End If

I think that's the way you have to do it.

Edit

Maybe like this

Dim bTestsFailed as Boolean
bTestsFailed = False

If Not myObject Is Nothing Then
    If myObject.test() Then
        'do something'
    Else
        bTestsFailed = True
    End If
Else
   bTestsFailed = True
End If

If bTestsFailed Then
    'do something else
End If

Isn't VBA great?

Answer 2

The only short circuiting (of a sort) is within Case expression evaluation, so the following ungainly statement does what I think your asking;

Select Case True
    Case (myObject Is Nothing), Not myObject.test()
        MsgBox "no instance or test == false"
    Case Else
        MsgBox "got instance & test == true"
    End Select
End Sub