[vba]Function GETELEMENT(ByVal Text As String, ByVal n As Long, Optional ByVal Delimiter As String = " ")

GETELEMENT = Split(Text & String(n - 1, Delimiter), Delimiter)(n - 1)
End Function[/vba]

just testing presentation of VBA tags on this forum. Looks good.

Ok to delete this post.