ник: rulez22
РЕШЕНИЕ:
В этой процедуре в цикле посимвольной проверки сделайте сначала сравнение с вашими допустимыми "иными" символами, а потом уже делайте сравнение на буквы, например так:
For LoopVar = 1 To Len(MyString)
SingleChar = UCase(Mid$(MyString, LoopVar, 1))
If SingleChar = " " Or SingleChar = "." Then '<--- вот это новая проверка
ElseIf SingleChar < "A" Or SingleChar > "Z" Then
IsAlpha = False
Exit Function
End If
Next LoopVar
|