منع المستخدم من ادراج مسافتين متتاليتين

السلام عليكم
كثير من الناس يزاجهون مشاكل الاخطاء الإملائية عند كتابة البيانات ومن هذه الاخطاء إدراج مسافتين بين الاسم الاول والأخير
مثلا: 
عند كتابة اسم الزبون :كمال مرغني
نكتبه بالشكل التالي:كمال  مرغني
من الوهلة الأولى نلاحظ انه لا يوجد إختلاف بين الاسمين لكن لو دققنا نظر نجد أن الاختلاف يكمن في المسافة بين الأسمين .
في الإسم الأول بها مسافة واحدة أم الثاني فيه مسافتين.
و في هذه الحالة فإن الأكسل لا يتعرف على الزبون الثاني و هذا يحدث مشاكل كبيرة و الحل في هذه الحالة هو كالتالي:
​ننقر على تكس بوكس نقرتين ثم نختار حدث بعد التحديث نكتب الكود التالي:
Private sub textbox1_AfterUpdate
dim lr as string
lr=replase(textbox1.text, space(2), space(1))   textbox1.text=lr
end sub
ملاحظة يمكن استبدال التكس بوكس وجعل كومبو بوكس مكانه حسب الاحتياج.
ارجو ان يكون الموضوع مفيد وشكرا.