Imports System

Imports System.Text.RegularExpressions

Public Module Module1

    Public Sub Main()

        Dim GT_FH_SIZE as String = "12H765"

        Dim Result as String

        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.*", ""))

    End Sub

End Module