Diese kleine Funktion simuliert die @Word-Funktion der Formelsprache in Lotus Script. 's' ist der mit Trennzeichen versehene String, 't' ist das Trennzeichen und 'ce' ist die Position des Rückgabestrings :

1. function AtWord(s As String,t As String,ce As Integer)
2. Dim ci As Integer
3. Dim i As Integer
4. Dim retwert As String
5. Dim c As String
6. Dim tmp As String
7. Dim posOChar As Integer
9. ci = ce - 1
10. tmp = s
11. For i = 0 To ci
12. posOChar = Instr(1,tmp,t,5)
13. If posOChar > 0 Then
14. retwert = Left(tmp,posOChar - 1)
15. tmp = Right(tmp,Len(tmp) - (posOChar) - Len(t) + 1)
16. Else
17. retwert = tmp
18. tmp = ""
19. End If
20. Next
22. AtWord=retwert
23. End Function