Visual Basic - sumar la cadena de un nº URGENTE

como puedo hacer parasumar un nº
ej. minum=28610840
y quiero sumar todos los dig. 2+8+6+1+0+8+4+0
desde ya gracias es urgente

Fijate con ésto:

Dim Numero As String, Suma As Double, i As Integer

Numero = CStr(28610840)

Suma = 0

For i = 1 To Len(Numero)
Suma = Suma + CInt(Mid(Numero, i, 1))
Next i

Debug.Print Suma