با سلام
من براي يك گزارش نياز دارم كه اعداد را سه رقم سه رقم جدا كنم و هر كدام را داخل يك تكست باكس بگذارم.
Public Function number3digit(num As Long, state As Integer) As Integer

If state = 1 Then number3digit = Right(num, 3)

If state = 2 Then number3digit = Left(Right(num, 6), 3)

If state = 3 Then number3digit = Left(Right(num, 9), 3)

End Function

اين روش را امتحان كردم ولي اشتباه است.