<div>
<pre><code id="code-20-40026841-1">Function ExtractNumbers(ByVal str As String) As String
    num = &quot;&quot;
    For x As Integer = 0 To str.Length - 1
        If IsNumeric(str.Substring(x, 1)) Then num = num &amp; str.Substring(x, 1)
    Next
    return num
End Function</code></pre>
</div>


Function ExtractNumbers(ByVal str As String) As String
    num = ""
    For x As Integer = 0 To str.Length - 1
        If IsNumeric(str.Substring(x, 1)) Then num = num & str.Substring(x, 1)
    Next
    return num
End Function

<div>
<div class="content wysiwyg-content">
I have text strings and I would like to be able to extract only the number contained within.<br />
<br />
ie<br />
GSX-R 1100 M (GSX-R M), GSX-R 1100 N (GSX-R N) = 1100<br />
GSX 750/K1/W/X/Y= 750<br />
<br />
GZ 125 K=125<br />
<br />
am with microsoft 365 version and working in query grid.<br />
<br />
help would be appreciated.
</div>
</div>


I have text strings and I would like to be able to extract only the number contained within.

ie
GSX-R 1100 M (GSX-R M), GSX-R 1100 N (GSX-R N) = 1100
GSX 750/K1/W/X/Y= 750

GZ 125 K=125

am with microsoft 365 version and working in query grid.

help would be appreciated.

extract numeric from text string

Microsoft Access is a rapid application development (RAD) relational database tool. Access can be used for both desktop and web-based applications, and uses VBA (Visual Basic for Applications) as its coding language.