Public Property CAJA() As String Get return Micaja.text End Get Set(ByVal value As String) Micaja.text = Value End Set End Property