document.write('
Data hosted with ♥ by Pastebin.com - Download Raw - See Original
  1. Public Function _get(v As Variant) As String
  2.  
  3.   Dim c As String
  4.  
  5.   c = Str$(v)
  6.   If IsNumber(c) Then
  7.     Try Return $dato[arrayKey[v]]
  8.     If Error Then
  9.       Return Null \'por si se produce un error
  10.     Endif
  11.  
  12.   Else
  13.     Try Return $dato[v]
  14.     If Error Then
  15.       Return Null \'por si se produce un error
  16.     Endif
  17.  
  18.   Endif
  19.  
  20. End
');