نقل قول نوشته شده توسط moustafa مشاهده تاپیک
جناب بهرامی شما چقدر به من ایده میدین به تبعیت از کد شما یه فانکشن نوشتم 
Public Function detectSpace(strname As String) As Boolean

Dim i As Integer

If Len(strname) = 0 Then

    detectSpace = False

Else

    For i = 1 To Len(strname)

        

        If Asc(Mid(strname, i, i + 1)) = 32 Then

    

            

            Else

    

            detectSpace = False

            

            Exit Function

         End If

         Next i

detectSpace = True

End If



End Function

نقل قول نوشته شده توسط mazoolagh مشاهده تاپیک 
Public Function detectSpace(strname As String) As Boolean

    detectSpace=(strname<>"" AND strname=STRING(LEN(strname)," "))

End Function

نقل قول نوشته شده توسط moustafa مشاهده تاپیک
تشکر جناب بهرامی
زحمت فانکشن هم کشیده بشه خیلی عالی میشه
با دو فانکشن پست 16 که خودت ایجاد کردی و پست 24 که جناب مازولاق پیشنهاد دادن به جواب میرسی ، دیگه نیاز به فانکشن خاص دیگه نداری!
به نظر من فانکشن پست 24 که جناب مازولاق پیشنهاد دادن خیلی بهتره ،چون بدون استفاده از لوپ یا حلقه و فقط با یک خط کد راحت به جواب میرسی
زیاد سخت نگیر آقا مصطفی !