2^2012 сколько нулей

Option Explicit
 
Function mul(m1 As String, m2 As String) As String
 Dim a() As String, N As Byte
 Dim i1 As Long, i2 As Long, L1 As Long, L2 As Long
   L1 = Len(m1): L2 = Len(m2)
   ReDim a(L1 + L2)
   For i2 = L2 To 1 Step -1
     N = Mid$(m2, i2, 1)
     For i1 = L1 To 1 Step -1
       a(i1 + i2) = Val(a(i1 + i2)) + N * Mid$(m1, i1, 1)
       If a(i1 + i2) > 9 Then
         a(i1 + i2 - 1) = Val(a(i1 + i2 - 1)) + a(i1 + i2) \ 10
         a(i1 + i2) = a(i1 + i2) Mod 10
       End If
     Next i1
   Next i2
   mul = Join(a, "")
End Function
 
Sub main()
Dim N As Long, S As String
S = "1"
For N = 1 To 2012
  S = mul(S, "2")
Next N
MsgBox "2^2012=" & S & vbLf & "В этом числе " & Len(S) - Len(Replace(S, "0", "")) & " нулей"
End Sub