指定文字の前の数値を抽出する方法

こんにちは

以下いかがでしょうか?

dt.AsEnumerable.Average(Function(r) CDbl(System.Text.Regularexpressions.Regex.Match(r("面積").ToString,"[.\d]+(?=\s*m²)").Value))