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"

        MsgBox(str.IndexOf("BOOKS"))

    End Sub

End Class