Domino Code Fragment

Code Name*
Word		Date*
09/10/2002		Source (or email address if you prefer)*
mni
IP address:.195.184.124.34
Description*
Just like @word		Type*
LotusScript		Categories*
String Handling
Implementation:
None (plug and play)		Required Client:
(none)		Server:
(none)
Limitations:
Comments:
Files/Graphics attachments (if applicable): Code:
Function Word(thisstring As Variant, seperator As String, Byval wordno As Integer) As String
Dim place As Integer
Dim counter As Integer

Word = thisstring + seperator
While wordno > 0
place = Instr(1, word, seperator)
If place = 0 Then
wordno = 0
Else
If wordno = 1 Then
Word = Left(word, place - 1)
Else
Word = Mid$(word, place + Len(seperator), Len(word) - place)
End If
wordno = wordno - 1
End If
Wend
End Function