Imports System

Public Module Module1

    Public Sub Main()

        Dim s as string = "PRO-PERS-CLI-3-M-s"

        Console.WriteLine(s.Length)

        dim g as char = s(s.Length-3)

        dim n as char = s(s.Length-1)

        Console.WriteLine(s(s.Length-1))

​

        Select case s(s.Length-1)

        case "S", "s"

            select case s(s.Length-3)

                case "M", "m"

                Console.WriteLine("Maschile singolare")

                case "F", "f"

                Console.WriteLine("Femminile plurale")

                case "1","2","3"

                Console.WriteLine("Verbo " & s(s.Length-3) & "° singolare")

            end select

        case "P", "p"

            select case s(s.Length-3)

                case "M", "m"

                Console.WriteLine("Maschile plurale")

                case "F", "f"

                Console.WriteLine("Femmniile Plurale")

                case "1","2","3"

                Console.WriteLine("Verbo " & s(s.Length-3) & "° plurale")

            end select

        end select  

        End Sub

​

End Module