JONvdHeyden
03-03-2009, 08:21 AM
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
just testing presentation of VBA tags on this forum. Looks good.
Ok to delete this post. :)
GETELEMENT = Split(Text & String(n - 1, Delimiter), Delimiter)(n - 1)
End Function
just testing presentation of VBA tags on this forum. Looks good.
Ok to delete this post. :)