Dim S As String = "=SUM(A10:B23)" '1023 が得られる Dim V As Double = Val(S.Where(Function(C) C Like "[.0-9]").ToArray())