جدا کردن عدد از رشته

"String= "A1B2C3D4

      تصور کردیم و بعد اجرا البته کد در نت زیاده       

1-لوپ زدن در طول String بالا با دستور For...Next و تابع Len 

2-استفاده از تابع Mid و البته قبل از آن تعریف متغیری از نوع Boolean که اگر کاراکتر عددی در String پیدا کرد True شود ( استفاده از تابع IsNumeric برای چک کردن عددی بودن کاراکتر ) و در متغیر دیگر Store شود 

در طول رشته حرکت میکند یک کاراکتر یک کاراکتر اگر عدد بود در متغیری ذخیره می کند اینجا همان Ret است  و حلقه تا زمانی ادامه پیدا میکند که متغیر تعریف شده ( i )  از نوع Integer یا Long با طول رشته که در اینجا با تابع Len بدست آمده و هشت است برابر شود 

تابع Mid کاراکتر یا کاراکترهای موردنظر شما را در رشته برمی گرداند قسمت اول نام رشته قسمت دوم آن Start منظور از کدام کاراکتر شروع شود و قسمت سوم آن طول یا تعداد کاراکترکه باید برگرداند است 

(Len(String

CheckDigit As Boolean

((IsNumeric(Mid(String,i,1

(Ret=Ret & Mid(String,i,1

 : Subsequently

Ret=1234