Data Type VisualBasic Script

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