PublicFunctionCheckBIG(strSourceAsString)AsBooleanDimidxAsLongDimByteTemp()AsByteCheckBIG=FalseForidx=1ToLen(strSource)  ByteTemp=StrConv(Mid(strSource,idx,1),vbFromUnicode)  IfUBound(ByteTemp)>0Then    If(ByteTemp(1)>=64)And(ByteTemp(1)<=126)Then&nbs...