You can use the following function.
Code:
Public Function stringProcessor(ByVal inputString As String) As String Dim result As String = String.Empty Dim stringList As List(Of String) = inputString.Split("-"c).ToList() If stringList.Count > 0 AndAlso stringList.Count = 5 Then result = stringList(0) & "-" & stringList(stringList.Count-1)
Leave a comment: