Comments on: Extract Only Numbers (VB Function)

By: steve0

steve0 — Fri, 06 Mar 2009 22:42:27 +0000

This is what I use...

Function x(ByVal s$) As Double
 Dim i As Long
 Dim sTmp$
 For i = 1 To Len(s$)
  If IsNumeric(Mid(s$, i, 1)) Then
   sTmp$ = sTmp$ & Mid(s$, i, 1)
  End If
 Next 
 x = Val(sTmp$)
End Function

By: Kevin Ritch

Kevin Ritch — Fri, 06 Mar 2009 19:37:46 +0000

Here's another approach:

Function MyNum(S As String) As Double
 For i = 1 To Len(S)
  N = N & IIf(InStr("1234567890", Mid$(S, i, 1)), Mid$(S, i, 1),  "")
 Next i
 MyNum = Val(N)
End Function