Добавить в произвольную строку разделители через равное количество символов - Visual Basic .NET

Формулировка задачи:

Привет. Как добавить в произвольную строку разделители через равное количество символов? Считая с конца строки.

                    Листинг программы
                
Function Separation(ByVal s1 As String, ByVal separator As String, ByVal n As Integer) As String

вызов: Separation("asdfghjkl", "-",

) As String получилось: a-sdfg-hjkl вызов: Separation("asdfghjkl", "-",

) As String получилось: asd-fgh-jkl

Решение задачи: «Добавить в произвольную строку разделители через равное количество символов»

textual
                            Листинг программы 
                        
 
                        
                          
                    
    Function Separation(ByVal s1 As String, ByVal separator As String, ByVal n As Integer) As String
        Dim sb As New Text.StringBuilder()
        Dim m As Integer = s1.Length Mod n ' первый отсчет
        If m = 0 Then m = n ' чтобы в случаях когда первый отсчет равен 0 не вставился разделитель в начале
 
        For i As Integer = 0 To s1.Length - 1
            If i = m Then ' вставляем разделитель когда индекс доходит до отсчета 
                sb.Append(separator)
                m += n ' добавляем шаг к отсчету
            End If
            sb.Append(s1(i))
        Next
 
        Return sb.ToString()
    End Function