Sub TestIsTrue() Dim blnIsTrue As Boolean blnIsTrue = 2 If blnIsTrue = True Then MsgBox "True" End If End Sub