подскажите, пожалуйста, как написать в vba сумму квадратов цифр заданного числа n

Dim n
Dim a(1 To 100) As Variant
Dim txt
Dim Suma
Private Sub Command1_Click()
n = Len(Text1.Text)
txt = (Text1.Text)
For i = 1 To n
a(i) = CInt(Mid(txt, i, 1))
Next i

For i = 1 To n
Suma = Suma + (a(i)) ^ 2
Next i
Label1.Caption = Suma
End Sub