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

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

'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


run \| edit \| history \| help	0