Function GetWord() As String
 
Dim szWords(0 To 1) As String
Dim szText As String
Dim szReturn As String
Dim dwStart As Long
 
Static dwIndex As Long
 
szText = "hallodiesisteintesthallodiesisteintest"
szWords(0) = "ist"
szWords(1) = "test"
 
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 Ereignis_Prozedur()
Dim szWord As String
 
szWord = GetWord()
 
Select Case szWord
   Case "ist"
       'Befehl 1
   Case "test"
       'Befehl 2
End Select
End Sub