نقل قول نوشته شده توسط 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
سلام
وقت بخیر!
احسنت!
بجای عدد 32 میشه از (" ")Asc هم استفاده کرد