[color=green]'Funktion liefert den korrigierten String zurück
Private Function String_manipulieren(Pruefstring As String, Wort As String) As _
  String
    Dim Splitter
 
    Splitter = Split(Pruefstring, " ")
    If UBound(Splitter) > 0 Then
        [color=green]'doppeltes Wort am Anfang entfernen
        If Splitter(0) = Wort And Splitter(1) = Wort Then
            String_manipulieren = Mid(Pruefstring, Len(Wort) + 2)
        End If
        Exit Function
    End If
    If UBound(Splitter) = 0 Then
        [color=green]'fehlendes Wort am Anfang einfügen
        If Splitter(0) <> Wort Then
            String_manipulieren = Wort & " " & Pruefstring
        Else
            [color=green]'Pruefstring ist so wie er sein soll und muß nicht 
            ' verändert werden
            String_manipulieren = Pruefstring
        End If
        Exit Function
    End If
    [color=green]'fehlendes Wort am Anfang einfügen falls Pruefstring Länge 
    ' 0
    String_manipulieren = Wort
End Function

mfg
brave@heart

...bis zur unendlichkeit und noch viel weiter...