DEF fnCheck (Dir$, Targ$, Length) fnCheck = 0 FOR X = 1 TO 50 IF MID$(Dir$, X, Length) = Targ$ THEN fnCheck = 1 NEXT X END DEF INPUT "String to search: ", Dir$ INPUT "String to find: ", Targ$ Targ$ = UCASE$(Targ$) Dir$ = UCASE$(Dir$) IF fnCheck(Dir$, Targ$, LEN(Targ$)) = 1 THEN PRINT "Is in string." ELSE PRINT "Not in string." END IF