LTrim(sTextToFind)

This should remove any leading spaces.

'Solution assumes the original string is in $A$2 in a worksheet
'named "StringsToParse", and the result is returned to $A$3.
'Also assumes that the last alpha substring in the original string
'is what needs to be returned.
'This solution  does not require use of the TRIM function.
'It can be modified to iterate any number of cells.
'It can be modified to pull multiple alpha substrings from the
'original string to be concatenated together or otherwise handled.
'Note the simple use of the powerful Regular Expressions object.
'''''''''''''''''''''''''''''''''''''
Option Explicit

Public Sub RemoveNonAlphaFromString()
'Must remove all substrings and spaces except the alphabetic portion.
Dim strOriginal, arrSplit, ctrArray, strFinal, strReturned,
strSubString
strOriginal = Worksheets("StringsToParse").Range("$A$2")
arrSplit = Split(strOriginal, Chr(32), -1, vbTextCompare)
For ctrArray = 0 To UBound(arrSplit)
strSubString = arrSplit(ctrArray)
strReturned = TestStringForAlpha(strSubString)
If strReturned = strSubString Then
'Success. This is the alpabetic substring.
Worksheets("StringsToParse").Range("$A$3") = strReturned
Else
'Failure. This is an unneeded substring.
'Do nothing. Iterate array for next substring.
End If
Next
End Sub


Public Function TestStringForAlpha(strSubString)
Dim objRegExp
Set objRegExp = CreateObject("VBScript.regexp")
With objRegExp
.IgnoreCase = True
.Pattern = "[A-Z]{3}"
.Global = True
If .Test(strSubString) = True Then
TestStringForAlpha = strSubString
Else
'This returned fail code here must not be able
'to match any legitimate substring.
TestStringForAlpha = "99Fail"
End If
End With
End Function

It's fine when I try it (Excel 2003).

I notice that you haven't copy/pasted EXACTLY what you have in your VBA
environment (for instance, there is no space after the comma before
"SearchOrder"), so I can't run your precise code. However, I did copy the
two statements out of the e-mail and into the VBE and they worked fine.

Before looking for other causes, you should suspect that it's something that
you are doing wrong. Things to look for would be double spaces in your
cells and a missing final space in the sTextToFind constant.

You might like to do an exact copy/paste of a few cells and of the code.