Función Mid para calificación crediticia

La función Mid permite obtener un extracto de alguna palabra que haya sido predefinida como texto, es decir como string. La función mencionada opera de la siguiente manera:

Nota_crediticia

Para este ejemplo se quiere mostrar la calificación crediticia de un país en base a su crecimiento económico, por lo que el resultado debe hacer explicito que lo que se muestre en el cuadro de texto es la calificación y no otro indicador. Primero se define la variable como texto:

Dim resultado as String

Luego, se establece el extracto de la palabra que se quiere se muestre en el cuadro de mensaje, así:

resultado = Mid("Calificación", 1, 5)

1. La palabra a resumir es Calificación,
2. El valor de 1 implica el orden de la letra en la que se quiere comenzar a realizar la extracción,
3. El valor de 5 implica el número de letras a extraer a partir del orden establecido en el paso anterior.

Con esto se busca que el cuadro de mensaje contenga la palabra "Calif"

Finalmente esa variable se incorpora en la opción select case:

Select Case region
Case "S"
If prom >= 5 Then MsgBox resultado & ":AA es atractivo para invertir" Else MsgBox resultado & ":CCC no invertir"
Case "A"
If prom >= 7 Then MsgBox resultado & ":AA es atractivo para invertir" Else MsgBox resultado & ":CCC no invertir"
Case "E"
If prom >= 3 Then MsgBox resulado & ":AA es atractivo para invertir" Else MsgBox resultado & ":CCC no invertir"

De esta manera el resultado que se obtiene es:

 

Elaborado por Gino Beteta Vejarano