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