Data Type VisualBasic Script

Sub bool()
    Dim b As Boolean
    b = True
    If b = True Then
        MsgBox "The product is available."
    Else             'b = False
        MsgBox "The product is not available."
    End If
End Sub