هل يوجد دالة تحول عدد من نظام ثنائي الى عشري

لايوجد دالة تقوم بالتحويل مباشرة وانما تستطيع من خلال الكود

Dim BIN As String, I As Long, r As Long
BIN = "1000001"
For I = 0 To Len(BIN)
If Val(Mid(BIN, I + 1, 1)) = 1 Then r = r + 2 ^ I
Next
MSGBOX r

أشكرك أخ mostafa zidani على الرد السريع و فعلاً استفدت من التعليمة mid() و لكن ليس بالصورة التي كتبتها حيث أنني مبتدىء و جديد على الفبجوال بيسك و رغم ذلك فإنني اتعلم عليها و قمت ببناء تطبيق الة حاسبة علمية من أحد مهامها العمل ضمن النظام الثنائي و قد وفقت بحمد الله من تنفيذ التطبيق و حالما انتهي بشكل كامل بناء التطبيق سوف أقوم بإرفاقه للمنتدى لكي يستفيد منه الاعضاء المبتدئين مثلي و شكراً لك وللمنتدى.