ASP.NET Ejercicio 03

•  Ingresar un numero en pantalla y calcular la suma de sus digitos

Protected Sub btncalcular_Click(sender As Object, e As EventArgs) Handles btncalcular.Click
        Dim num As String
        num = txtentrada.Text
        Dim s = (From D In num Select Val(D)).Sum
        txtsalida.Text = s
    End Sub
End Class