1: 2: 3: 4: 5:
Dim s As String = "Hello-World.HowAreYou" Dim i1 As Integer = s.IndexOf("-") Dim extractedString = s.Remove(0, i1 + 1) Dim i2 As Integer = extractedString.IndexOf(".") extractedString = extractedString.Remove(i2)