open_in_new content_copy 
    Dim mDbl as Double
    If Double.TryParse(New String((From sChr In testString Where "1234567890.,-+".IndexOf(sChr) > -1).ToArray), mDbl) Then
        Console.WriteLine(mDbl.ToString)
    End If