Dim str As String
Dim vnt As Variant
str = "Apfelkuchenkuchenkuchenkuchenkuchen"
vnt = Array(UBound(Split(str, "Apfel")), _
UBound(Split(str, "kuchen")))
If vnt(0) > vnt(1) Then
Call MsgBox(str & " schmeckt mehr nach Apfel.", vbInformation)
ElseIf vnt(0) < vnt(1) Then
Call MsgBox(str & " schmeckt mehr nach Kuchen.", vbInformation)
Else
Call MsgBox(str & " schmeckt gleichermaßen nach Apfel und Kuchen.", vbInformation)
End If