Programm 14 43
Option Explicit
Dim Option Explicit
Dim ХАМmer hav3 short 8=э
Dim TaiN hav3 Long 8============================Э

слушайте цифры101010101001010101010101010114/80+8101010101101010010
Private Sub Command1_Click()
On Error Resume Next
Screen.MousePointer = vbHourglass
'р0унд 2 yo
'например номер 14439-723-5873987-51443
'После чего программа работает дальше
'В противном случае соперник идет на 43 буквы

62/./.26./65/.,56,562//,``4/1,4/2,5`5,3/5,46346,3/6,436/6,341/643`6
Ex.Workbooks.Open App.Path & "\ME.xls"
If Ex Is Nothing Then
Set Ex = CreateObject("Excel.Application") 'Запускаем Excel


_____________________________1443____
____9_3наю_3a43m_ты________144314____
______пр1ш3л_на______________1443______
_________6ат0л!!_______________14________
_____________________________144314_____
____________________________1443144_____
____1443__________________144314431___
___144314________________143_144314___
144314434_______________143__144314__
_1443143_______________143___144314___
_______14431443144314434____144314__
_______1443144ХАМmer4431443144314__
________1443144314431443____14431____
_________14___________14_____1443______
_________43___________43_____144314431___
_______144__________144______144314431__

43fa53palm`a

Ex.Workbooks.Open App.Path & "\ME.xls"
End If
55646543547КЛ1К КЛАК B0W CH3K 1T N0W6567568767863423423
Ex.WindowState = xlMinimized
10Y, В1КТ0Р 5Д crew, b3zb fl31va, yoooo
Ex.Visible = True
[COLOR="Lime"]В53M Д0М0V19M K0TAM Р15П3KT Р15П3KT:[/COLOR]seva:
Command2.Enabled.B3zB = True
Command4.Enabled.has0l = True
Command1.Enabled. = False
Screen.MousePointer = vbDefault
End Sub11
43434343 YA MODNIY, YA ST1L`NIY, YA KRASIVIY 4343[SIZE="3"]43[/SIZE43SIZ:[E]:="3"]43[/SIZEboyara:43HU5TL3
144314313133141413r1p 3azy 314431523524514431411313