Определить цифры данного числа и подсчитать их количество

    Sub Main()
        Dim array As ArrayList = New ArrayList
        Dim text As String
        Dim Num As String = "1119923432345353450725792"
        Dim i As Integer
 
        For i = 0 To Num.Length - 1
            array.Add(Num.Substring(i, 1))
        Next
        i = 0
        array.Sort()
 
        Do While i < array.Count - 1
            If array(i) = array(i + 1) Then
                array.RemoveAt(i + 1)
                i -= 1
            End If
            i += 1
        Loop
 
        For Each w In array
            text = text & w & ","
 
        Next
        Console.WriteLine("Число " & Num & " состоит из цифр " & text & " в числе всего цифр " & Num.Length)
 
 
    End Sub

    Sub Main()
        Dim num As String = "1349"
        Dim numNew As String = num.Substring(num.Length - 1, 1) & num.Substring(1, num.Length - 2) & num.Substring(0, 1)
        Console.WriteLine("Исходное число до замены : " & num & " Число после перемены : " & numNew)
        MsgBox("end")
 
 
    End Sub