ProjectEuler_16 -TizzyT

Imports System.Numerics 'My solution to Project Euler Problem 16
Module PowerSum
    Sub Main()
        Dim meh As New BigInteger(2 ^ 1000)
        Dim sum As Integer = 0
        For Each d As Char In meh.ToString : sum += Integer.Parse(d) : Next
        Console.WriteLine(sum)
    End Sub
End Module