Imports System
Public Class WordInStringChecker
' Checks if both words are present in the string
Public Shared Function IsTwoWordsInString(str As String, w1 As String, w2 As String) As Boolean
Return str.Contains(w1) AndAlso str.Contains(w2)
End Function
Public Shared Sub Main()
Dim str As String = "Visual Basic (VB.NET) is a multi-paradigm, " +
"object-oriented programming language"
Dim w1 As String = "VB"
Dim w2 As String = "multi"
Dim result As Boolean = IsTwoWordsInString(str, w1, w2)
Console.WriteLine(result)
End Sub
End Class
' run:
'
' True
'