evento get

Public Function _get(v As Variant) As String

  Dim c As String

  c = Str$(v)
  If IsNumber(c) Then
    Try Return $dato[arrayKey[v]]
    If Error Then
      Return Null 'por si se produce un error
    Endif

  Else
    Try Return $dato[v]
    If Error Then
      Return Null 'por si se produce un error
    Endif

  Endif

End