SoloCodigo

////////////////////////////////////
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim intValor As Byte = 5
        Dim intResultado As Byte
        Do While intValor > 0
            intResultado = intResultado + intValor
            intValor = intValor - 1
        Loop
        MessageBox.Show(intResultado)

    End Sub

//////////////
intResultado, me arroja 15 ya le estuve intentado entender por mi ceunta pero no pude
alguien me lo podria explicar detalladamente GRACIAS

para arreglarlo, basta con que cambies el valor del > 0 del while por > 1. de esa manera cuando intvalor valga 0, ya no se volvera a ejecutar.

saludos, miguel