Function Parser(sText As String, iPosition As Integer) As String
'Breaks sText into "words" using space character as delimiter _
Returns word at position iPosition in sText
On Error Resume Next
Parser = Split(Application.Trim(Replace(sText, Chr(160), " ")), " ")(iPosition - 1)
On Error GoTo 0
End Function
|