Даны натуральные числа M и N.определить период десятичной дроби m/n

Option Explicit
 
Sub sss()
   Dim m, n
   
   m = 5
   n = 7
'   n = 9876   'может проверить? :)
   MsgBox T(m, n), , m / n
End Sub
 
Function T(ByVal m As Long, ByVal n As Long) As String  'm/n
   Dim i As Long, beg As Long
   Dim k As Integer
   Dim ОстаткиОтДеления() As Long
   Dim ДесДробь() As Byte
 
   If m Mod n = 0 Then T = "(0)": Exit Function
   If m > n Then m = m Mod n   'приведение к правильной дроби (m < n)
   
   k = 1
   ReDim Preserve ОстаткиОтДеления(1 To k)
   ReDim Preserve ДесДробь(1 To k)
 
   ОстаткиОтДеления(1) = m
   ДесДробь(1) = (10 * m) \ n
 
   Do
      m = 10 * m Mod n
      k = k + 1
      ReDim Preserve ОстаткиОтДеления(1 To k)
      ReDim Preserve ДесДробь(1 To k)
      
      ОстаткиОтДеления(k) = m
      ДесДробь(k) = (10 * m) \ n
      
      For i = 1 To UBound(ОстаткиОтДеления) - 1
         If m = ОстаткиОтДеления(i) Then
            beg = i
            Exit Do
         End If
      Next i
   Loop
   
   For i = beg To UBound(ОстаткиОтДеления) - 1
      T = T & ДесДробь(i)
   Next i
   
   T = "(" & T & ")"
End Function