Dim reg As New Regex("[0-9.]+")Dim m As Match = reg.Match("axd123.09")If m.Success Then Dim a As Double = m.Value Output.Show(a)End If