Программный код
Private Sub Command2_Click()

End

End Sub

Private Sub Form_Load()

BYTb = MsgBox("Введите свое имя по букве в каждую клетку Заглавными буквами и узнаете свою судьбинушку!!!", 12, "Приветствие")

End Sub

Private Sub Command1_Click()

If Text1.Text = "А" Or Text1.Text = "И" Or Text1.Text = "С" Or Text1.Text = "Ы" Then Text1.Text = 1 Else If Text1.Text = "Б" Or Text1.Text = "Й" Or Text1.Text = "Т" Or Text1.Text = "Э" Then Text1.Text = 2 Else If Text1.Text = "В" Or Text1.Text = "К" Or Text1.Text = "У" Or Text1.Text = "Ю" Then Text1.Text = 3 Else If Text1.Text = "Г" Or Text1.Text = "Л" Or Text1.Text = "Ф" Or Text1.Text = "Я" Then Text1.Text = 4 Else If Text1.Text = "Д" Or Text1.Text = "М" Or Text1.Text = "Х" Then Text1.Text = 5 Else If Text1.Text = "Е" Or Text1.Text = "Н" Or Text1.Text = "Ц" Then Text1.Text = 6 Else If Text1.Text = "Ё" Or Text1.Text = "О" Or Text1.Text = "Ч" Then Text1.Text = 7 Else If Text1.Text = "Ж" Or Text1.Text = "П" Or Text1.Text = "Ш" Then Text1.Text = 8 Else If Text1.Text = "З" Or Text1.Text = "Р" Or Text1.Text = "Щ" Then Text1.Text = 9 Else Text1.Text = ""

If Text2.Text = "А" Or Text2.Text = "И" Or Text2.Text = "С" Or Text2.Text = "Ы" Then Text2.Text = 1 Else If Text2.Text = "Б" Or Text2.Text = "Й" Or Text2.Text = "Т" Or Text2.Text = "Э" Then Text2.Text = 2 Else If Text2.Text = "В" Or Text2.Text = "К" Or Text2.Text = "У" Or Text2.Text = "Ю" Then Text2.Text = 3 Else If Text2.Text = "Г" Or Text2.Text = "Л" Or Text2.Text = "Ф" Or Text2.Text = "Я" Then Text2.Text = 4 Else If Text2.Text = "Д" Or Text2.Text = "М" Or Text2.Text = "Х" Then Text2.Text = 5 Else If Text2.Text = "Е" Or Text2.Text = "Н" Or Text2.Text = "Ц" Then Text2.Text = 6 Else If Text2.Text = "Ё" Or Text2.Text = "О" Or Text2.Text = "Ч" Then Text2.Text = 7 Else If Text2.Text = "Ж" Or Text2.Text = "П" Or Text2.Text = "Ш" Then Text2.Text = 8 Else If Text2.Text = "З" Or Text2.Text = "Р" Or Text2.Text = "Щ" Then Text2.Text = 9 Else Text2.Text = ""

If Text3.Text = "А" Or Text3.Text = "И" Or Text3.Text = "С" Or Text3.Text = "Ы" Then Text3.Text = 1 Else If Text3.Text = "Б" Or Text3.Text = "Й" Or Text3.Text = "Т" Or Text3.Text = "Э" Then Text3.Text = 2 Else If Text3.Text = "В" Or Text3.Text = "К" Or Text3.Text = "У" Or Text3.Text = "Ю" Then Text3.Text = 3 Else If Text3.Text = "Г" Or Text3.Text = "Л" Or Text3.Text = "Ф" Or Text3.Text = "Я" Then Text3.Text = 4 Else If Text3.Text = "Д" Or Text3.Text = "М" Or Text3.Text = "Х" Then Text3.Text = 5 Else If Text3.Text = "Е" Or Text3.Text = "Н" Or Text3.Text = "Ц" Then Text3.Text = 6 Else If Text3.Text = "Ё" Or Text3.Text = "О" Or Text3.Text = "Ч" Then Text3.Text = 7 Else If Text3.Text = "Ж" Or Text3.Text = "П" Or Text3.Text = "Ш" Then Text3.Text = 8 Else If Text3.Text = "З" Or Text3.Text = "Р" Or Text3.Text = "Щ" Then Text3.Text = 9 Else Text3.Text = ""

If Text4.Text = "А" Or Text4.Text = "И" Or Text4.Text = "С" Or Text4.Text = "Ы" Then Text4.Text = 1 Else If Text4.Text = "Б" Or Text4.Text = "Й" Or Text4.Text = "Т" Or Text4.Text = "Э" Then Text4.Text = 2 Else If Text4.Text = "В" Or Text4.Text = "К" Or Text4.Text = "У" Or Text4.Text = "Ю" Then Text4.Text = 3 Else If Text4.Text = "Г" Or Text4.Text = "Л" Or Text4.Text = "Ф" Or Text4.Text = "Я" Then Text4.Text = 4 Else If Text4.Text = "Д" Or Text4.Text = "М" Or Text4.Text = "Х" Then Text4.Text = 5 Else If Text4.Text = "Е" Or Text4.Text = "Н" Or Text4.Text = "Ц" Then Text4.Text = 6 Else If Text4.Text = "Ё" Or Text4.Text = "О" Or Text4.Text = "Ч" Then Text4.Text = 7 Else If Text4.Text = "Ж" Or Text4.Text = "П" Or Text4.Text = "Ш" Then Text4.Text = 8 Else If Text4.Text = "З" Or Text4.Text = "Р" Or Text4.Text = "Щ" Then Text4.Text = 9 Else Text4.Text = ""

If Text5.Text = "А" Or Text5.Text = "И" Or Text5.Text = "С" Or Text5.Text = "Ы" Then Text5.Text = 1 Else If Text5.Text = "Б" Or Text5.Text = "Й" Or Text5.Text = "Т" Or Text5.Text = "Э" Then Text5.Text = 2 Else If Text5.Text = "В" Or Text5.Text = "К" Or Text5.Text = "У" Or Text5.Text = "Ю" Then Text5.Text = 3 Else If Text5.Text = "Г" Or Text5.Text = "Л" Or Text5.Text = "Ф" Or Text5.Text = "Я" Then Text5.Text = 4 Else If Text5.Text = "Д" Or Text5.Text = "М" Or Text5.Text = "Х" Then Text5.Text = 5 Else If Text5.Text = "Е" Or Text5.Text = "Н" Or Text5.Text = "Ц" Then Text5.Text = 6 Else If Text5.Text = "Ё" Or Text5.Text = "О" Or Text5.Text = "Ч" Then Text5.Text = 7 Else If Text5.Text = "Ж" Or Text5.Text = "П" Or Text5.Text = "Ш" Then Text5.Text = 8 Else If Text5.Text = "З" Or Text5.Text = "Р" Or Text5.Text = "Щ" Then Text5.Text = 9 Else Text5.Text = ""

If Text6.Text = "А" Or Text6.Text = "И" Or Text6.Text = "С" Or Text6.Text = "Ы" Then Text6.Text = 1 Else If Text6.Text = "Б" Or Text6.Text = "Й" Or Text6.Text = "Т" Or Text6.Text = "Э" Then Text6.Text = 2 Else If Text6.Text = "В" Or Text6.Text = "К" Or Text6.Text = "У" Or Text6.Text = "Ю" Then Text6.Text = 3 Else If Text6.Text = "Г" Or Text6.Text = "Л" Or Text6.Text = "Ф" Or Text6.Text = "Я" Then Text6.Text = 4 Else If Text6.Text = "Д" Or Text6.Text = "М" Or Text6.Text = "Х" Then Text6.Text = 5 Else If Text6.Text = "Е" Or Text6.Text = "Н" Or Text6.Text = "Ц" Then Text6.Text = 6 Else If Text6.Text = "Ё" Or Text6.Text = "О" Or Text6.Text = "Ч" Then Text6.Text = 7 Else If Text6.Text = "Ж" Or Text6.Text = "П" Or Text6.Text = "Ш" Then Text6.Text = 8 Else If Text6.Text = "З" Or Text6.Text = "Р" Or Text6.Text = "Щ" Then Text6.Text = 9 Else Text6.Text = ""

If Text7.Text = "А" Or Text1.Text = "И" Or Text7.Text = "С" Or Text7.Text = "Ы" Then Text7.Text = 1 Else If Text7.Text = "Б" Or Text7.Text = "Й" Or Text7.Text = "Т" Or Text7.Text = "Э" Then Text7.Text = 2 Else If Text7.Text = "В" Or Text7.Text = "К" Or Text7.Text = "У" Or Text7.Text = "Ю" Then Text7.Text = 3 Else If Text7.Text = "Г" Or Text7.Text = "Л" Or Text7.Text = "Ф" Or Text7.Text = "Я" Then Text7.Text = 4 Else If Text7.Text = "Д" Or Text7.Text = "М" Or Text7.Text = "Х" Then Text7.Text = 5 Else If Text7.Text = "Е" Or Text7.Text = "Н" Or Text7.Text = "Ц" Then Text7.Text = 6 Else If Text7.Text = "Ё" Or Text7.Text = "О" Or Text7.Text = "Ч" Then Text7.Text = 7 Else If Text7.Text = "Ж" Or Text7.Text = "П" Or Text7.Text = "Ш" Then Text7.Text = 8 Else If Text7.Text = "З" Or Text7.Text = "Р" Or Text7.Text = "Щ" Then Text7.Text = 9 Else Text7.Text = ""

If Text8.Text = "А" Or Text1.Text = "И" Or Text8.Text = "С" Or Text8.Text = "Ы" Then Text8.Text = 1 Else If Text8.Text = "Б" Or Text8.Text = "Й" Or Text8.Text = "Т" Or Text8.Text = "Э" Then Text8.Text = 2 Else If Text8.Text = "В" Or Text8.Text = "К" Or Text8.Text = "У" Or Text8.Text = "Ю" Then Text8.Text = 3 Else If Text8.Text = "Г" Or Text8.Text = "Л" Or Text8.Text = "Ф" Or Text8.Text = "Я" Then Text8.Text = 4 Else If Text8.Text = "Д" Or Text8.Text = "М" Or Text8.Text = "Х" Then Text8.Text = 5 Else If Text8.Text = "Е" Or Text8.Text = "Н" Or Text8.Text = "Ц" Then Text8.Text = 6 Else If Text8.Text = "Ё" Or Text8.Text = "О" Or Text8.Text = "Ч" Then Text8.Text = 7 Else If Text8.Text = "Ж" Or Text8.Text = "П" Or Text8.Text = "Ш" Then Text8.Text = 8 Else If Text8.Text = "З" Or Text8.Text = "Р" Or Text8.Text = "Щ" Then Text8.Text = 9 Else Text8.Text = ""

If Text9.Text = "А" Or Text1.Text = "И" Or Text9.Text = "С" Or Text9.Text = "Ы" Then Text9.Text = 1 Else If Text9.Text = "Б" Or Text9.Text = "Й" Or Text9.Text = "Т" Or Text9.Text = "Э" Then Text9.Text = 2 Else If Text9.Text = "В" Or Text9.Text = "К" Or Text9.Text = "У" Or Text9.Text = "Ю" Then Text9.Text = 3 Else If Text9.Text = "Г" Or Text9.Text = "Л" Or Text9.Text = "Ф" Or Text9.Text = "Я" Then Text9.Text = 4 Else If Text9.Text = "Д" Or Text9.Text = "М" Or Text9.Text = "Х" Then Text9.Text = 5 Else If Text9.Text = "Е" Or Text8.Text = "Н" Or Text9.Text = "Ц" Then Text9.Text = 6 Else If Text9.Text = "Ё" Or Text9.Text = "О" Or Text9.Text = "Ч" Then Text9.Text = 7 Else If Text9.Text = "Ж" Or Text9.Text = "П" Or Text9.Text = "Ш" Then Text9.Text = 8 Else If Text9.Text = "З" Or Text9.Text = "Р" Or Text9.Text = "Щ" Then Text9.Text = 9 Else Text9.Text = ""

If Text10.Text = "А" Or Text10.Text = "И" Or Text10.Text = "С" Or Text10.Text = "Ы" Then Text10.Text = 1 Else If Text10.Text = "Б" Or Text10.Text = "Й" Or Text10.Text = "Т" Or Text10.Text = "Э" Then Text10.Text = 2 Else If Text10.Text = "В" Or Text10.Text = "К" Or Text10.Text = "У" Or Text10.Text = "Ю" Then Text10.Text = 3 Else If Text10.Text = "Г" Or Text10.Text = "Л" Or Text10.Text = "Ф" Or Text10.Text = "Я" Then Text10.Text = 4 Else If Text10.Text = "Д" Or Text10.Text = "М" Or Text10.Text = "Х" Then Text10.Text = 5 Else If Text10.Text = "Е" Or Text10.Text = "Н" Or Text10.Text = "Ц" Then Text10.Text = 6 Else If Text10.Text = "Ё" Or Text10.Text = "О" Or Text10.Text = "Ч" Then Text10.Text = 7 Else If Text10.Text = "Ж" Or Text10.Text = "П" Or Text10.Text = "Ш" Then Text10.Text = 8 Else If Text10.Text = "З" Or Text10.Text = "Р" Or Text10.Text = "Щ" Then Text10.Text = 9 Else Text10.Text = ""

Text11.Text = Val(Text1.Text) + Val(Text2.Text) + Val(Text3.Text) + Val(Text4.Text) + Val(Text5.Text) + Val(Text6.Text) + Val(Text7.Text) + Val(Text8.Text) + Val(Text9.Text) + Val(Text10.Text)

If Text11.Text = 1 Then Text12.Text = "Люди с числом имени равным 1 обладают редкостной целеустремленностью. Им свойственно неуклонное стремление к достижению своих конкретных целей. Это люди, преданные чему-то одному. Они обладают сильными характерами, они созидательны, упрямы, честолюбивы, агрессивны и полагаются только на себя. Они умеют быстро сосредоточиваться и обладают хорошей памятью. Они - руководители, созидатели, инициаторы и изобретатели. Это пионеры, всегда стремящиеся к чему-то новому и необычному. Крайне независимые, они не умеют подчиняться чужим распоряжениям и сотрудничать с другими. Они не принимают советов и обычно отказываются следовать им. Они не всегда приятны в общении. Их мало интересует дружба и любовь и, как правило, у них мало близких друзей. Если же они общительны и проявляют симпатию, это может быть вызвано тем, что таким образом они надеются извлечь для себя выгоду. Они пытаются руководить всем, подчас доходя до тирании. " Else Text12.Text = "12"

If Text11.Text = 2 Then Text12.Text = "Люди с числом имени 2 обладают качествами, традиционно считающимися женскими. Это мягкие нежные натуры. Они тихи, тактичны, миролюбивы, обладают ровным характером, любят покой и гармонию. Обычно они стремятся быть ведомыми и становятся прекрасными исполнителями - честными, аккуратными и скромными. Как правило, они - последователи, а не лидеры, и если они хотят добиться чего-то своего, то действуют убеждением и дипломатией, а не напором. Зачастую они скромны и застенчивы. Они часто меняют свои взгляды, колеблются и проявляют нерешительность. Однако у этого числа есть и темная, зловещая сторона, которая может выражаться в жестокости, злобности и лживости.Нумерологи, как и другие оккультные мыслители, считают, что существование ассоциативной связи между двумя явлениями указывает на их фактическую связь между собой. Понятие на вторых ролях воспринимается нумерологом не как метафора, а как свидетельство существования связи между числом 2 и подчинением."

If Text11.Text = 3 Then Text12.Text = "Если ваше число - 3, то вы энергичны, подвижны, азартны и обладаете богатым воображением. Вы по любому поводу изъясняетесь хладнокровно, но с живостью. Тройки сверкают и блещут. Остроумные, веселые, очаровательные, чаще всего они преуспевают в жизни. Зачастую это одаренные люди, особенно в области искусства. Они все воспринимают легко и просто и, как правило, удачливы. Возникает впечатление, что им все удается без труда. Гордые и независимые, иногда они бывают амбициозны, властолюбивы, вплоть до диктаторских замашек. Их недостатки вызваны тем, что они разбрасывают свои усилия в слишком многих направлениях, а также их неспособностью воспринимать что-либо серьезно. Иногда они неудержимо стремятся к популярности и болезненно нуждаются в одобрении окружающих. "

If Text11.Text = 4 Then Text12.Text = "4 - число солидных, практичных людей, не умеющих ни воодушевляться, ни воодушевлять других. В них нет творческой искры, зато они могут быть прекрасными организаторами и администраторами. Приземленные, спокойные, стойкие, усердные, респектабельные - они считают себя столпами общества. Им нравится рутинная тяжелая работа. К сожалению, они мрачны, суровы, подозрительны, имеют склонность подавлять окружающих и не одобрять всех, кто на них не похож. Кроме того, четверкам присуща болезненность, вытекающая из их приступов меланхолии или внезапных всплесков ярости и насилия. Четверки и слишком удачливы в жизни, и любой успех достается им непросто. По традиции, четыре - число нищеты, несчастья и поражения. Большинство современных нумерологов пытается замалчивать эти неприятные стороны, но общая характеристика 4 не из благоприятных."

If Text11.Text = 5 Then Text12.Text = "5 - гораздо более привлекательная личность. Это непоседливые, умные и нетерпеливые люди. Очень нервны. Их привлекает все непривычное и странное. Они любят путешествовать, заводить новые знакомства, менять обстановку. Пятерки могут все, но ни в чем не достигают совершенства, их все привлекает, но они ни на чем не останавливаются. Им доставляет удовольствие азарт и риск. Из них получаются великолепные торговцы. Это привлекательные, пылкие авантюристы, иногда надменные и саркастичные. Они ненавидят ответственность и избегают ее. Они не переносят обыденности и обязанностей. Зачастую они невнимательны к другим и потворствуют своим желаниям. Это изобретательные, жизнерадостные, многогранные личности, трудно поддающиеся анализу и определению. Кроме того, на основании чуть ниже приведенных причин, 5 является числом секса. Любовная жизнь пятерок интересна, но нестабильна, и темная сторона их природы может проявляться в неумеренности, дебоширстве и извращениях."

If Text11.Text = 6 Then Text12.Text = "  6 - число гармонии, домашнего уюта и мирного счастья. Шестерки уравновешены, добры, спокойны и надежны. Они обладают особыми талантами в дружбе и в семейной жизни. Они верны, нежны, идеалистичны и честны. В отличие от пятерок они целостны и консервативны, в отличие от троек - лишены блеска. Им сопутствует большой успех в сфере искусства и педагогики. Хотя это способные и усердные труженики, настоящая тяга к делу у них отсутствует. Большое удовольствие им доставляет тихий круг друзей и домочадцев. Порой они бывают чопорны, самодовольны, болтливы, суетливы, упрямы и надменны."

If Text11.Text = 7 Then Text12.Text = "7 - число ученого, философа, мистика и оккультиста. Семерки - затворники от природы. Они любят удаляться от безумной мирской суеты и предпочитают одиночество, дающее возможность размышлять и медитировать. Величавые, уравновешенные и серьезные, они не переносят дурость и легкомыслие. Их не интересуют ни деньги, ни личный комфорт. Семерки обладают мощным всепроникающим интеллектом, но вместе с тем им свойственна мечтательность и высокая восприимчивость, что иногда придает им странность и загадочность. Они совершенно не способны излагать собственные мысли и обычно не любят, когда им задают вопросы или вступают с ними в дискуссию. Порой они глубоко несчастны, пессимистичны, разочарованны, и тогда они ведут себя надменно, с чувством собственного превосходства и уничтожающим сарказмом."

If Text11.Text = 8 Then Text12.Text = "8 - число власти, богатства и мирского признания. Это число материального успеха или неудачи. Восьмерки - сильные, жесткие, практичные люди, удачливые бизнесмены или политики, но их жизненный путь никогда не бывает простым. Они не способны накапливать деньги с беззаботной легкостью троек. Их карьера держится на борьбе, усилиях, осторожности и тяжелой работе. Они все делают продуманно и осмотрительно, без каких-либо порывов. Они могут быть неприятными, прагматичными, эгоистичными, иногда беспринципными и самовластными. У них не слишком привлекательный характер и порой они остро и с грустью осознают это. Однако зачастую за их мрачным и холодным видом скрывается безумная эксцентричность, своенравие и бунтарство. Они способны достичь огромного успеха, но постоянно сталкиваются с возможностью сокрушительной неудачи."

If Text11.Text = 9 Then Text12.Text = "9 - число высокого интеллектуального и духовного развития. Девятки - мистики и идеалисты с широкими взглядами на Bernis. Романтичные, страстные и импульсивные, это люди многочисленных привязанностей. Они очень обаятельны. Им присуща неугомонная жажда помогать другим и служить гуманным целям. Из них получаются блестящие педагоги, ученые, художники. Решительные и волевые, вдохновенные и вдохновляющие, они зачастую оказываются объектом насмешек своих унылых современников, которые считают их безумными, непрактичными и выходящими за рамки общепринятых норм. Они впечатлительны, постоянно влюбляются и разочаровываются, их приводит в искренний ужас уродство, нищета, старость и горе, как собственные, так и чужие. В споре они могут быть нетерпимыми и безжалостными. Их жажда делать добро может выражаться с вопиющей надменностью и эгоцентричностью. Иногда кажется, что они слишком поглощены любовью к человечеству в целом, чтобы заботиться о конкретных индивидуумах."

A = "11 - 21 чрезвычайно счастливые и благоприятные числа, они представляют собой более высокий уровень, чем числа от 1 до 9. 11 - число откровений и мученичества. Это - особые посланцы, у которых есть что сообщить миру. Они могут стать великими учителями и проповедниками, вдохновенными провидцами в религии, науке, политике или искусстве. Они соответствуют девяткам, им присущи те же достоинства и недостатки, только на более высоком уровне. Крайние субъективисты, они живут в лучах собственного внутреннего видения и порой плохо понимают реальность и нужды окружающих. Иногда их обвиняют в том, что идеалы для них дороже живых людей. Это мощные личности великой отваги и нравственной смелости, убежденные в важности и праведности своей миссии. Ради ее выполнения они готовы пожертвовать всем. "

If Text11.Text = 10 Or Text11.Text = 11 Or Text11.Text = 12 Or Text11.Text = 13 Or Text11.Text = 14 Or Text11.Text = 15 Or Text11.Text = 16 Or Text11.Text = 17 Or Text11.Text = 18 Or Text11.Text = 19 Or Text11.Text = 20 Or Text11.Text = 21 Then Text12.Text = A

If Text11.Text = 22 Then Text12.Text = "22 - это число учителя. Трудно говорить о человеке, число которого 22, не прибегая к превосходным степеням. Это число поистине великих людей, сочетающих в своей почти сверхчеловеческой личности лучшие качества всех остальных чисел: напористую энергию 1, убедительность 2, блеск З, способность к упорному труду 4, многосторонность 5, гармонию б, мудрость 7, мирские способности 8, любовь к людям 9, миссионерство и внутреннее видение 11. Созидатель, учитель, организатор, этому человеку повсюду сопутствует успех, его любят и уважают все, кто сталкивается с ним в жизни. Есть лишь один огрех. Человек, который мог бы стать Наполеоном в политике, философии, бизнесе, может предпочесть карьеру Наполеона преступного мира. 22 - число не только великих промышленных магнатов (сумма имени Джона Рокфеллера равна 22), но и магистров черной магии. Нумерологи утверждают, что к числам 11 и 22 нужно относиться с осторожностью. " Else Text12.Text = "БАЗЫ УСТАРЕЛИ,ПОЖАЛУЙСТА ОБНОВИТЕ ИХ!ЧИЧКОВ

End Sub