Тип данных Decimal. Как использовать? - VB

Формулировка задачи:

Максимальное число с которым я могу оперировать это 24159191040 (Long). Как преобразовать long или Variant в Decimal? Или как получить Decimal?Просто так Decimal не добавляется, хотя на сайте Microsoft прямо так и пишут Dim d1,d2,d3,d4 as Decimal. Если я увеличиваю For i = 1 To 155432 (корень из 24159191040(Long)), то когда значение i становится 46341 (что это?) выскакивает ошибка Run time error 6 Overflow. Код моей программы для поиска автоморфных чисел ниже

                    Листинг программы
                
 
                        
                          
                    
Dim a As Integer
Dim b, i As Long
Sub Command1_Click()
For i = 1 To 30000
b = i ^ 2
a = Len(i)
If i = b Mod 10 ^ a Then Print i
Next i
End Sub

Ошибка "Overflow" именно в подсчете b Mod 10 ^ a.Но хотелось бы также узнать как использовать Decimal?

Решение задачи: «Тип данных Decimal. Как использовать?»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Dim i As Long, m As Double, b
 
Sub Command1_Click()
m = 10
For i = 1 To 100000000
  If i >= m Then m = m * 10
  b = CDec(i) * i
  If i = b - Int(b / m) * m Then Debug.Print i
Next i
End Sub