Advertisement
Guest User

Untitled

a guest
Aug 29th, 2015
129
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.38 KB | None | 0 0
  1. Public Class Form1
  2. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  3. Dim str As String = TextBox1.Text$.Replace(" ", vbNullString)
  4. MsgBox("The Word after " & str & " is: " & TextBox2.Text$.Substring(TextBox2.Text$.IndexOf(str) + Val(str.Length + 1)).Split(" ")(0), MsgBoxStyle.Information)
  5. End Sub
  6. End Class
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement