dim txtzeile as String = "irgendwas.irgendwoher"
dim wert1 as String = "irgend"
dim s() as String = split(txtzeile, ".")
 
for i as integer = 0 to UBound(s) - 1
    if InStr(s(i), wert1) > 0 then
         Call irgendeineprozedur()
    end if
next i

dim txtzeile as String = "irgendwas.irgendwoher"
dim wert1 as String = "irgend"
dim s() as String = split(txtzeile, ".")
 
for i as integer = 0 to UBound(s) - 1
  if len(wert1) > 0 then
    if len(s(i)) > len(wert1) then
       if InStr(s(i), wert1) > 0 then
         Call irgendeineprozedur()
       end if
     end if
   end if
next i