Module Module1
 
    Sub Main()
 
		Dim String1 As String
		Dim String2 As String
 
		'String der durchsucht wird
		String1 = "das benoetige ich dringend"
 
		'String, nach dem gesucht wird
		String2 = "das benoetige ich"
 
		If InStr(String1, String2) = 0 Then
			'Ist nicht vorhanden
		Else
			'Ist vorhanden
		End If
 
    End Sub
 
End Module