Dim sum, cnt As Integer Do While (sum < T2.Text) sum += T1.Text cnt += 1 Loop