Сложение чисел до тех пор, пока сумма не превысит заданную величину - Visual Basic .NET

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

Помогите, пожалуйста, найти ошибку! Задание : Организовать цикл типа Do Untill, на шаге которого генерируется случайное целое число из интервала 0-100) с помощью функции RND эти случайные числа суммируются до тех пор, пока сумма не превысит 500. Количество шагов цикла вывести в текстовое поле

                    Листинг программы
                
 
                        
                          
                    
Public Class Form1
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 
        Dim a As String
        Dim k As Integer
        Dim i As Integer
        k = CInt(Int((100 * Rnd()) + 0))
        i = 1
        a = 0
        Do While a >= 500
            i = i + 1
            a = k + k
            MsgBox("Количество шагов цикла:" & TextBox1.Text & i)
        Loop
    End Sub
 
    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
 
    End Sub
End Class

Решение задачи: «Сложение чисел до тех пор, пока сумма не превысит заданную величину»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim a As INTEGER 'String
Dim k As Integer
Dim i As Integer
'k = CInt(Int((100 * Rnd()) + 0))
RANDOMIZE
'i = 0 '1
'a = 0
Do UNTIL a > 500
  i = i + 1
  k = Int((101 * Rnd())
  a =A + k
  'MsgBox("Количество шагов цикла:" & TextBox1.Text & i)
Loop
TextBox1.Text="Количество шагов цикла: " &  i
End Sub