selecting partial strings

[Luis939]

I have this code

ActiveCell.Value = Left(ActiveCell.Text, InStr(ActiveCell.Text, " &quot - 1)

that allows me to search the string from the left until you find a blank " ", but how would i specify that i want to search only until the second blank or 3rd etc, Thanks!

 

[RobBroekhuis]

Function UpTillSpace(s As String, n As Integer) As String
Dim p As Integer, i As Integer
p = 0: i = 1
Do While i <= n
p = InStr(p + 1, s, &quot; &quot
If p = 0 Then
i = n
p = Len(s) + 1
End If
i = i + 1
Loop
UpTillSpace = Left(s, p - 1)
End Function Rob