Dim test As String = "Testing.BSMain, Text: Start Page" Dim phrase As String = test.Substring(test.IndexOf(":"c) + 1)