Private Function SplitAfter(ByVal Value As String, ByVal SplitCount As Integer) As String
  Return SplitAfter(Value, SplitCount, "-"c, False)
End Function
Private Function SplitAfter(ByVal Value As String, ByVal SplitCount As Integer, ByVal SeparChar As Char) As String
  Return SplitAfter(Value, SplitCount, SeparChar, False)
End Function
Private Function SplitAfter(ByVal Value As String, ByVal SplitCount As Integer, ByVal RemoveBreak As Boolean) As String
  Return SplitAfter(Value, SplitCount, "-"c, RemoveBreak)
End Function
Private Function SplitAfter(ByVal Value As String, ByVal SplitCount As Integer, ByVal SeparChar As Char, ByVal RemoveBreak As Boolean) As String
  Dim ResultString As String = String.Empty
  If RemoveBreak Then Value = Value.Replace(CChar(System.Environment.NewLine), " "c)
  Dim Lines() As String = Value.Split(CChar(System.Environment.NewLine))
  For iLine As Integer = 0 To Lines.Length - 1
    Do While Lines(iLine).Length > SplitCount
      Dim Pos As Integer = Lines(iLine).LastIndexOf(" "c, SplitCount)
      Select Case Pos
        Case Is = -1
          If Not SeparChar = Nothing Then
            ResultString &= Lines(iLine).Substring(0, SplitCount - 1) & SeparChar & System.Environment.NewLine
            Lines(iLine) = Lines(iLine).Substring(SplitCount)
          Else
            Dim Pos2 As Integer = Lines(iLine).IndexOf(" "c, SplitCount)
            Select Case Pos2
              Case Is = -1
                ResultString &= Lines(iLine)
                Lines(iLine) = String.Empty
              Case Else
                ResultString &= Lines(iLine).Substring(0, Pos2) & System.Environment.NewLine
                Lines(iLine) = Lines(iLine).Substring(Pos2 + 1)
            End Select
          End If
        Case Else
          ResultString &= Lines(iLine).Substring(0, Pos) & System.Environment.NewLine
          Lines(iLine) = Lines(iLine).Substring(Pos + 1)
      End Select
    Loop
    ResultString &= Lines(iLine)
    If iLine < Lines.Length - 1 Then ResultString &= System.Environment.NewLine
  Next iLine
  Return ResultString
End Function

private static string SplitAfter(string Value, int SplitCount) {
  return SplitAfter(Value, SplitCount, '-', false);
}
private static string SplitAfter(string Value, int SplitCount, char SeparChar) {
  return SplitAfter(Value, SplitCount, SeparChar, false);
}
private static string SplitAfter(string Value, int SplitCount, bool RemoveBreak) {
  return SplitAfter(Value, SplitCount, '-', RemoveBreak);
}
private static string SplitAfter(string Value, int SplitCount, char SeparChar, bool RemoveBreak) {
  string ResultString = string.Empty;
  if (RemoveBreak) 
    Value = Value.Replace('\n', ' ');
  string[] Lines = Value.Split('\n');
  for (int iLine = 0; iLine < Lines.Length; iLine++) {
    while (Lines[iLine].Length > SplitCount) {
      int Pos = Lines[iLine].LastIndexOf(' ', SplitCount);
      switch (Pos) {
        case -1:
          if (SeparChar != '\0') {
            ResultString += Lines[iLine].Substring(0, SplitCount - 1) + SeparChar + '\n';
            Lines[iLine] = Lines[iLine].Substring(SplitCount);
          }
          else {
            int Pos2 = Lines[iLine].IndexOf(' ', SplitCount);
            switch (Pos2) {
              case -1:
                ResultString += Lines[iLine];
                Lines[iLine] = String.Empty;
                break;
              default:
                ResultString += Lines[iLine].Substring(0, Pos2) + '\n';
                Lines[iLine] = Lines[iLine].Substring(Pos2 + 1);
                break;
            }
          }
          break;
        default:
          ResultString += Lines[iLine].Substring(0, Pos) + '\n';
          Lines[iLine] = Lines[iLine].Substring(Pos + 1);
          break;
      }
    }
    ResultString += Lines[iLine];
    if (iLine < Lines.Length - 1)
      ResultString += '\n';
  }
  return ResultString;
}