Imports System
Imports uCalcSoftware
Public Module Program
   Public Sub Main()
      Dim uc As New uCalc()
      '// Attempt to get an invalid DataType
      Dim invalidType = uc.DataTypeOf("NoSuchType")
      
      '// Get its Item representation
      Dim invalidItem = invalidType.Item
      
      '// Check its properties
      Console.WriteLine($"Item Is Found: {Not invalidItem.IsProperty(ItemIs.NotFound)}")
      Console.WriteLine($"Item Name: '{invalidItem.Name}'")
   End Sub
End Module