Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim x As String = "hello . How are you there I am Leanord This world is beautiful"
Dim i As Integer = Len("I am Leanord")
Dim s As String = x.Substring(InStr(x, "I") - 1, i)
MessageBox.Show(s)
End Sub