Public Class Form1

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

    ByVal e As System.EventArgs) Handles Button1.Click



        Dim str As String

        Dim retString As String

        str = "This is substring test"

        retString = str.Substring(8, 9)

        MsgBox(retString)



    End Sub

End Class