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

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

i = 1
summa = 0
lenth = Len(Text1)
Do While i < lenth
    summa = summa + CInt(Mid(Text1, i, 1))
    If summa >= CInt(Text2) Then
        MsgBox "Сумма цифр достигает " & Text2 & " на " & i & " цифре", vbInformation
        Exit Do
    End If
    i = i + 1
Loop
If i >= lenth Then MsgBox "Сумма цифр не достигнута", vbInformation

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

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