Ошибка в коде

[zhilkinson]

Доброго дня!
Я написал программу в ms visual 2010, и столкнулся с ошибкой.
Суть программы в том, чтобы она выводила одно или несколько сообщений, соответствующих номеру, например 138
Вот КОД:

If Label2.Text = 168 Or 1612 Or 1615 Or 1812 Or 1815 Or 6812 Or 6815 Or 81215 Or 11215 Or 61215 Then
MsgBox("Пират")
End If
If Label2.Text = 149 Or 1410 Or 1413 Or 1910 Or 1913 Or 4910 Or 4913 Or 91013 Or 11013 Or 41013 Then
MsgBox("Расстройство желудка")
End If
If Label2.Text = 158 Or 1512 Or 1513 Or 1812 Or 1813 Or 5812 Or 5813 Or 81213 Or 11213 Or 51213 Then
MsgBox("Кривые ноги")
End If
If Label2.Text = 148 Or 1412 Or 1414 Or 1812 Or 1814 Or 4812 Or 4814 Or 81214 Or 11214 Or 41214 Then
MsgBox("Ретромен")
End If
If Label2.Text = 349 Or 3411 Or 3414 Or 3911 Or 3914 Or 4911 Or 4914 Or 91114 Or 31114 Or 41114 Then
MsgBox("Жертва огнестрела")
End If
If Label2.Text = 147 Or 1410 Or 1413 Or 1710 Or 1713 Or 4710 Or 4713 Or 71013 Or 11013 Or 41013 Then
MsgBox("Животный грипп")
End If
If Label2.Text = 259 Or 2512 Or 2513 Or 5912 Or 5913 Or 2912 Or 2913 Or 91213 Or 21213 Or 51213 Then
MsgBox("Кошкомания")
End If
If Label2.Text = 147 Or 1412 Or 1413 Or 1712 Or 1713 Or 4712 Or 4713 Or 71213 Or 11213 Or 41213 Then
MsgBox("Заядлый курильщик")
End If
If Label2.Text = 148 Or 1412 Or 1413 Or 1812 Or 1813 Or 4812 Or 4813 Or 81213 Or 11213 Or 41213 Then
MsgBox("Склероз")
End If
If Label2.Text = 158 Or 1512 Or 1515 Or 1812 Or 1815 Or 5812 Or 5815 Or 81215 Or 11215 Or 51215 Then
MsgBox("Двигательная болезнь")
End If
If Label2.Text = 268 Or 2611 Or 2613 Or 2811 Or 2813 Or 6811 Or 6813 Or 81113 Or 21113 Or 61113 Then
MsgBox("Сонная болезнь")
End If
If Label2.Text = 348 Or 3412 Or 3415 Or 4812 Or 4815 Or 81215 Or 31215 Or 3815 Or 3812 Or 41215 Then
MsgBox("Медиафобия")
End If
If Label2.Text = 348 Or 3412 Or 3413 Or 3812 Or 3813 Or 31213 Or 4812 Or 4813 Or 81213 Then
MsgBox("Вуайерист")
End If
If Label2.Text = 168 Or 1612 Or 1614 Or 1812 Or 1814 Or 11214 Or 6812 Or 6814 Or 81214 Or 61214 Then
MsgBox("Великая лень")
End If
If Label2.Text = 147 Or 1410 Or 1413 Or 1710 Or 1713 Or 11013 Or 4710 Or 4713 Or 41013 Or 71013 Then
MsgBox("Холера")
End If
If Label2.Text = 368 Or 3612 Or 3613 Or 3812 Or 3813 Or 31213 Or 6812 Or 6813 Or 81213 Or 61213 Then
MsgBox("Социопат")
End If
If Label2.Text = 158 Or 1512 Or 1515 Or 1812 Or 1815 Or 5812 Or 5815 Or 81215 Or 11215 Or 51215 Then
MsgBox("Дискобой")
End If
If Label2.Text = 149 Or 1412 Or 1413 Or 1912 Or 1913 Or 11213 Or 4912 Or 4913 Or 91213 Or 41213 Then
MsgBox("Лилипутанизм")
End If
If Label2.Text = 348 Or 3412 Or 3415 Or 4812 Or 4815 Or 81215 Or 31215 Or 3815 Or 3812 Or 41215 Then
MsgBox("Первая любовь")
End If
If Label2.Text = 149 Or 1412 Or 1413 Or 1912 Or 1913 Or 11213 Or 4912 Or 4913 Or 91213 Or 41213 Then
MsgBox("Пузырчатая болезнь")
End If
If Label2.Text = 247 Or 2411 Or 2414 Or 2711 Or 2714 Or 21114 Or 4714 Or 41114 Or 71114 Then
MsgBox("Отморозок")
End If
If Label2.Text = 258 Or 2511 Or 2515 Or 2811 Or 2815 Or 21115 Or 5811 Or 5815 Or 51115 Or 81115 Then
MsgBox("Проклятье вампира")
End If
If Label2.Text = 147 Or 1410 Or 1413 Or 1710 Or 1713 Or 4710 Or 4713 Or 71013 Or 11013 Or 41013 Then
MsgBox("Обычная простуда")
End If
If Label2.Text = 168 Or 1611 Or 1613 Or 1811 Or 1813 Or 11113 Or 6811 Or 6813 Or 61113 Or 81113 Then
MsgBox("Перемена настроения")
End If
If Label2.Text = 158 Or 1512 Or 1513 Or 1812 Or 1813 Or 5812 Or 5813 Or 81213 Or 11213 Or 51213 Then
MsgBox("Плоскостопие")
End If
If Label2.Text = 268 Or 2611 Or 2811 Or 6811 Then
MsgBox("Зомби (Рефлексы как?)")
End If
If Label2.Text = 2810 Or 2813 Or 21013 Or 81013 Then
MsgBox("Человек лампа (Рефлексы как?)")
End If
If Label2.Text = 348 Or 3412 Or 3812 Or 4812 Then
MsgBox("Пораненый палец (Сердечко как?)")
End If
If Label2.Text = 1512 Or 1513 Or 11213 Or 51213 Then
MsgBox("Увеличенное Эго (Легкие как?)")
End If
End Sub

Вместо того, чтобы вывести одно или несколько значений, программа выводит ВСЕ по очереди...
Помогите, как исправить
Спасибо

[p51x]

Язык какой? Не похоже на С++.

А по теме: учите язык дальше первой страницы учебника,

 Label2.Text = число Or число_не_равно_0

всегда будет истинным

[zhilkinson]

Сообщение от p51x

Язык какой? Не похоже на С++.

А по теме: учите язык дальше первой страницы учебника,

 Label2.Text = число Or число_не_равно_0

всегда будет истинным

Так как все таки должен выглядеть код?

Хотябы первой строчки

[Сыроежка]

Сообщение от zhilkinson

Так как все таки должен выглядеть код?

Хотябы первой строчки

Скорей всего так:

If Label2.Text = 168 Or
    Label2.Text = 1612  Or 
    Label2.Text = 1615  Or 
    Label2.Text - 1812  Or 
    Label2.Text = 1815  Or 
    Label2.Text = 6812  Or 
    Label2.Text = 6815  Or 
    Label2.Text = 81215 Or 
    Label2.Text = 11215 Or 
    Label2.Text =61215 
Then