Нахождение суммы цифр числа от старших разрядов - VB

Формулировка задачи:

Я понимаю, что это должно быть очень просто, но я только начал учить VB (учусь в школе). Мне задали домой задание: На какой цифре в числе сумма цифр достигнет значения Z? Я старался учесть случай, когда сумма цифр не достигнет значения Z, но я пока малограмотный и поэтому ничего не вышло. Так как показано тут мне посоветовали, но так вообще не работает

                    Листинг программы
                
 
                        
                          
                    
Dim x, z As Int64
        Dim a, l As Byte, i As Byte = 0, sum As Byte = 0
        Dim s As String
 
        n = CInt(TextBox1.Text)
        z = CInt(TextBox2.Text)
        x = n
        s = CStr(n)
        l = Len(s)
        ListBox2.Items.Clear()
        Do While sum < z
            If a = 0 Then
                s = "Сумма цифр не достигает z"
                Exit Do
            End If
            i = i + 1
            a = x \ (10 ^ (l - i))
            x = x Mod (10 ^ (l - i))
            sum = sum + a
            ListBox2.Items.Add(CStr(a))
        Loop
        s = "Сумма цифр достигает z на: " & CStr(i) & " цифре"
 
        Label8.Text = s

Мне посоветовали вставить

                    Листинг программы
                
If a = 0 Then
                s = "Сумма цифр не достигает z"
                Exit Do
      End If

Но, как-то совсем не помогло

Решение задачи: «Нахождение суммы цифр числа от старших разрядов»

textual
                            Листинг программы 
                        
If x = 0 Then
                s = "Сумма цифр не достигает z"
                Exit Do
End If