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)
select case s(s.Length-3)
Console.WriteLine("Maschile singolare")
Console.WriteLine("Femminile plurale")
Console.WriteLine("Verbo " & s(s.Length-3) & "° singolare")
select case s(s.Length-3)
Console.WriteLine("Maschile plurale")
Console.WriteLine("Femmniile Plurale")
Console.WriteLine("Verbo " & s(s.Length-3) & "° plurale")