Function GetWord() As String
Dim szWords(0 To 2) As String
Dim szText As String
Dim szReturn As String
Dim dwStart As Long
 
Static dwIndex As Long
 
szText = "test test ist ist test end test ist ist"
szWords(0) = "ist"
szWords(1) = "test"
szWords(2) = "end"
 
If dwIndex > UBound(szWords) Then
    dwIndex = 0
End If
 
dwStart = InStr(1, szText, szWords(dwIndex))
szReturn = Mid(szText, dwStart, Len(szWords(dwIndex)))
 
dwIndex = dwIndex + 1
GetWord = szReturn
End Function
 
Private Sub Timer1_Timer()
Dim szWord As String
szWord = GetWord()
Select Case szWord
   Case "ist"
     MsgBox "Befehl1"
   Case "test"
     MsgBox "Befehl2"
   Case "end"
     End
End Select
End Sub

http://www.c-a-club.de