Dim str As String = "<span class=""ui-font-large ui-color-red ui-num"" id=""gz_gsz"">2.0062</span>" msgbox(str)
Dim mc = System.Text.RegularExpressions.Regex.Matches(str, "(?<=id=""gz_gsz"">)[0-9\.]+") msgbox(mc.count) If mc.count > 0 Then msgbox(mc(0).value) End If