شرح وحدة نمطية لازالة المسافة عن الجملة

[rey360]

السلام عليكم هل يمكن شرح هذه الوحدة النمطية ان أمكن كما أنها للاستاذ ابا جودى  وشكرا لكم 

Function NoSpaces(InName As String) As String
    Dim NewName As String, ThePrevStr As String, TheStr As String
    Dim I As Integer
        InName = Trim(InName)
            For I = 1 To Len(InName)
                TheStr = Mid(InName, I, 1)
                If TheStr = " " And ThePrevStr = " " Then TheStr = ""
                If TheStr <> "" Then ThePrevStr = TheStr
                NewName = NewName & TheStr
            Next
                NoSpaces = NewName