Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, _

    ByVal e As System.EventArgs) Handles Button1.Click

        Dim str As String

        str = "VB.NET TOP 10 BOOKS"

        If str.Contains("TOP") = True Then

            MsgBox("The string Contains() 'TOP' ")

        Else

            MsgBox("The String does not Contains() 'TOP'")

        End If

    End Sub

End Class