Перевод кода с PHP

Public Class Form1
    Dim rgArg0 = {1, 2, 3}
    Dim rgArg1 = {4}
    Dim rgArg2 = {5, 6}
    Dim arr = array_merge(rgArg0, rgArg1, rgArg2)
    Dim result As New List(Of String)
 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        result = array_all_combinations(arr)
        RichTextBox1.Text = String.Join(vbCrLf, result.ToArray)
    End Sub
 
    Function array_all_combinations(items%(), Optional perms%() = Nothing) As List(Of String)
        If items.Length = 0 Then
            Dim s = ""
            For Each item In perms
                s &= " " & item.ToString
            Next
            result.Add("[" & result.Count & "] =>" & s)
        Else
            For i = items.Length - 1 To 0 Step -1
                Dim newitems = items
                Dim newperms = perms
                Dim foo = array_splice(newitems, i, 1)
                array_unshift(newperms, foo)
                array_all_combinations(newitems, newperms)
            Next
        End If
        Return result
    End Function
 
    'Функция слияния массивов в один. Встроена в PHP
    Function array_merge(ParamArray arrs()) As Integer()
        Dim ResultArray As New List(Of Integer)
        For Each arr As Integer() In arrs
            ResultArray.AddRange(arr)
        Next
        Return ResultArray.ToArray
    End Function
 
    'Метод (функция) добавляет один или несколько элементов в начало массива. Встроена в PHP
    Sub array_unshift(ByRef array%(), values%())
        Dim l As New List(Of Integer)
        l.AddRange(values)
        If array IsNot Nothing Then l.AddRange(array)
        array = l.ToArray
    End Sub
 
    'Функция удаляет часть массива и возвращает удалённые. Встроена в PHP
    Function array_splice(ByRef input%(), offset%, length%) As Integer()
        Dim result As New List(Of Integer)
        result.AddRange(input)
        Dim DelArr%(length - 1)
        result.CopyTo(offset, DelArr, 0, length)
        result.RemoveRange(offset, length)
        ReDim input(result.Count - 1)
        input = result.ToArray
        Return DelArr
    End Function
End Class