Class Program
Shared Sub Main()
Dim sentence As String = "This sentence has five words."
Dim startPosition As Integer = sentence.IndexOf(" ") + 1
Dim word2 As String = sentence.Substring(startPosition, sentence.IndexOf(" ", startPosition) - startPosition)
Console.WriteLine("Second word: " + word2)
End Sub
End Class