Imports System.Text.RegularExpressions
Dim GT_FH_SIZE as String = "12H765"
Result = CInt(GT_FH_SIZE.Substring(0, GT_FH_SIZE.indexOf("H")))
Console.WriteLine("pino=" & Result)
Dim m As Match = Regex.Match(GT_FH_SIZE, "^(.+)H")
Console.WriteLine("gino=" & m.Groups(1).value)
Console.WriteLine("rino=" & Regex.Replace(GT_FH_SIZE,"H.*", ""))