'*
'* Function : MID
'*
'* Función pública que emula la sentencia MID de VB.NET
'* Extrae y devuelve parte de una cadena de caracteres.
'*
'* value : Cadena de caracteres original.
'* in : Posición del primer caracter de la cadena a extraer
'* len : Longitud de la cadena a extraer
'*
'* Devuelve un string con la parte seleccionada de la cadena
'*
'*
Sub MID(value As String, in As Int, len As Int) As String
Dim cadena2 As String
If in-1+len<=value.Length Then
cadena2=value.SubString2(in-1, in+len-1)
Else
cadena2=""
End If
Return cadena2
End Sub