Arraylist Order by string array or comma delitmited string in vb.NET, Visual Basic

Language: Layout:

'Rextester.Program.Main is the entry point for your code. Don't change it.
'Compiler version 11.0.50709.17929 for Microsoft (R) .NET Framework 4.5

Imports System
Imports System.Collections.Generic
Imports System.Collections
Imports System.Linq
Imports System.Text.RegularExpressions

Namespace Rextester
    Public Module Program
        Public Sub Main(args() As string)
            'Arraylist Order by string array or comma delitmited string in vb.NET
            dim al_povodne as ArrayList = New ArrayList
            al_povodne.Add("6")
            al_povodne.Add("3")
            al_povodne.Add("-689")
            al_povodne.Add("68")
           
            Dim poleKodov() As String = "1,2,3,4,5,6".ToString().Split(",")
            'Dim poleKodov() As String ="".ToString().Split(",")
            al_povodne = new ArrayList (al_povodne.ToArray().OrderBy(Function(b) if(Array.indexof(poleKodov,b.ToString)> 0,Array.indexof(poleKodov,b.ToString),al_povodne.count+1)).Toarray)
            
             For Each item as object in al_povodne
              Console.WriteLine(item)
             Next
        End Sub
    End Module
End Namespace

Show compiler warnings [ + ] Show input
Compilation time: 0,2 sec, absolute running time: 0,09 sec, cpu time: 0,09 sec, average memory usage: 13 Mb, average nr of threads: 3