دوستان این Module که براتون گذاشتم تابعی هست برای تبدیل عدد به معادل فارسی آن هستش امید وارم که به کار دوستان بخوره
البته این رو بگم که فعلا تا 18 عدد رو تبدیل میکنه یعنی 999,999,999,999,999,999
نحوه استفاده از این کد:
MsgBox(NumToFarsi(TextBox1.Text))
راستی اینم بگم که دارم روی تبدیل حروف فارسی به اعداد کار میکنم و احتمال خیلی زیاد تا جمعه آماده میشه!
واقعا" عالی بود از شما متشکرم
لینکش خرابه