Imports System

imports System.Linq

Public Module Module1

    Public Sub Main()

          Dim name() As String = {"jack", "nicho", "Han", "Hugo"}

        Dim value() As String = {"70", "60", "30", "90"}

​

        Dim j As Integer = 0

        Dim new_value = From val1 In value Order By val1 Descending Select val1

        Dim new_name() As String

        Dim idx As Integer

        ReDim Preserve new_name(new_value.Count - 1)

        For Each itm In new_value

            idx = Array.IndexOf(value, itm)

            new_name(j) = name(idx)

            j = j + 1

        Next

        Console.WriteLine("Values In Name")

        Console.WriteLine("--------------")

        For Each itm1 In new_name

            Console.WriteLine(itm1)

        Next

    Console.WriteLine("")

    Console.WriteLine("Values In Value")

    Console.WriteLine("--------------")

        For Each itm1 In new_value

            Console.WriteLine(itm1)

        Next

    End Sub

End Module