Grab text of string until space

[sarcher]

I'd like a VBA code to grab the characters of a string until it gets to the first space character?

example

"Down in the valley"

will return "Down"



TIA

Stephen

[orange]

Left(yourTextField,Instr(yourTextField," ") )

or as a function

Function LeftOfSpace(txtIn As String) As String
LeftOfSpace = Left(txtIn, InStr(txtIn, " "))
End Function

and a test routine

Sub sep10()
    Dim a As String: a = "down in the valley"
    Debug.Print LeftOfSpace(a)
End Sub

down

[sarcher]

perfect - thank you
Stephen

[CJ_London]

another way is

split(yourTextField," ") (0)

but will only work in VBA, not in a query

[Micron]

shouldn't this be moved out of Knowledge Base / Code Repository?