<div>
The best solution is the Split Command<br />

<pre><code id="code-20-42936435-1">Dim AllText() as String
AllText = Split(YourText,&quot; &quot;)
For i = Lbound(AllText) To UBound(AllText)
Debug.Print AllText(i)
Next</code></pre>
This will convert your text to an array splitted on each space<br />
e.g.<br />
YourText = &quot;A Simple Test&quot;<br />
AllText(0) = &quot;A&quot;<br />
AllText(1) = &quot;Simple&quot;<br />
AllText(2) = &quot;Test
</div>


The best solution is the Split Command


Dim AllText() as String
AllText = Split(YourText," ")
For i = Lbound(AllText) To UBound(AllText)
Debug.Print AllText(i)
Next

This will convert your text to an array splitted on each space
e.g.
YourText = "A Simple Test"
AllText(0) = "A"
AllText(1) = "Simple"
AllText(2) = "Test

John Kincaid

Microsoft Developer

Anders Ebro (Microsoft MVP)

Get vaccinated; Social distance; Wear a mask

aikimark

<div>
Anders<br />
<br />
MyString = &quot;Aaron Guzman&quot;<br />
&nbsp;Mid(YourString, Len(YourString)) returned &quot;n&quot;<br />
and<br />
Left(YourString, InStrRev(YourString, &quot;&quot;)) returned &quot;Aaron Guzman&quot;
</div>


Anders

MyString = "Aaron Guzman"
 Mid(YourString, Len(YourString)) returned "n"
and
Left(YourString, InStrRev(YourString, "")) returned "Aaron Guzman"

<div>
In addition to Bill's correct solution, you can also use the Left() function:<br />

<pre><code id="code-20-42936458-1">Left([Text1],InStrRev([Text1],&quot; &quot;)-1) AS LeftPart</code></pre>
</div>


In addition to Bill's correct solution, you can also use the Left() function:


Left([Text1],InStrRev([Text1]," ")-1) AS LeftPart

<div>
Anders, forgive me I am wrong, your code worked fine.<br />
Bill, yours did as well.<br />
<br />
Thanks to both of you!
</div>


Anders, forgive me I am wrong, your code worked fine.
Bill, yours did as well.

Thanks to both of you!

<div>
Welcome.<br />
<br />

<hr />
»<b><i>bp</i></b>
</div>


Welcome.



----------------------------------------

»bp

<div>
<div class="content wysiwyg-content">
I need to capture all text to the right of the last space and everything (including spaces) to the left of the last space. &nbsp;I have been all over the Mid, Right and Left functions. All messed up here!!!
</div>
</div>


I need to capture all text to the right of the last space and everything (including spaces) to the left of the last space.  I have been all over the Mid, Right and Left functions. All messed up here!!!

How to parse space delimited 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.

Microsoft Access

Visual Basic for Applications (VBA) enables building user-defined functions (UDFs), automating processes and accessing Windows API and other low-level functionality through dynamic-link libraries (DLLs). VBA is closely related to Visual Basic and uses the Visual Basic Runtime Library, but it can normally only run code within a host application rather than as a standalone program. It can, however, be used to control one application from another via OLE Automation. VBA is built into most Microsoft Office applications.