Public Class SubStringTest
Public Shared Sub Main()
Dim info As String() = {"Name: A", "Title: Ms."}
Dim found As Integer = 0
For Each s In info
found = s.IndexOf(":")
Console.WriteLine(s.Substring((found + 1)).Trim())
Next s
End Sub
End Class