скрипт для распечатки содержимого text box в Visual Basic6.0

[Thatguypaco]

Здравствуйте столкнулся с проблемой в Visual Basic 6.0 нужен скрипт для распечатки содержимого из одного text.box . P.s не уверен правильно ли я расписал часть данного кода , помогите если есть ошибки в нем

If -1.64 >= h1 <= 1.64 Then Text9.Text = "Íåìåäëåííàÿ ýâàêóàöèÿ ëþäåé. Ïîñëå ýâàêóàöèè ëþäåé âûïîëíèòü ïîëíîå òåõíè÷åñêîå îáñëåäîâàíèå çäàíèÿ è ïî åãî ðåçóëüòàòàì âûïîëíèòü êàïèòàëüíûå âîññòàíîâèòåëüíûå ðàáîòû, ëèáî ñíîñ çäàíèÿ"
If -1.64 >= i1 <= 1.64 Then Text9.Text = "Íåìåäëåííàÿ ýâàêóàöèÿ ëþäåé. Ïîñëå ýâàêóàöèè ëþäåé âûïîëíèòü ïîëíîå òåõíè÷åñêîå îáñëåäîâàíèå çäàíèÿ è ïî åãî ðåçóëüòàòàì âûïîëíèòü êàïèòàëüíûå âîññòàíîâèòåëüíûå ðàáîòû, ëèáî ñíîñ çäàíèÿ"
If -1.64 >= j1 <= 1.64 Then Text9.Text = "Íåìåäëåííàÿ ýâàêóàöèÿ ëþäåé. Ïîñëå ýâàêóàöèè ëþäåé âûïîëíèòü ïîëíîå òåõíè÷åñêîå îáñëåäîâàíèå çäàíèÿ è ïî åãî ðåçóëüòàòàì âûïîëíèòü êàïèòàëüíûå âîññòàíîâèòåëüíûå ðàáîòû, ëèáî ñíîñ çäàíèÿ"
If h1 And i1 And j1 >= -3.29 Then Text9.Text = "Ðåìîíò íå òðåáóþòñÿ"
If h1 And i1 And j1 >= -3.19 Then Text9.Text = "Ðåìîíò íå òðåáóþòñÿ"
If h1 And i1 And j1 >= -3.09 Then Text9.Text = "Ðåìîíò íå òðåáóþòñÿ"
If h1 And i1 And j1 >= -2.58 Then Text9.Text = "Òåêóùèé ðåìîíò"
If h1 And i1 And j1 >= -2.555 Then Text9.Text = "Òåêóùèé ðåìîíò"
If -2.555 >= h1 And i1 And j1 >= -2.53 Then Text9.Text = "Óñèëåíèå è âîññòàíîâëåíèå íåñóùåé ñïîñîáíîñòè"
If -2.245 <= h1 And i1 And j1 <= -2.53 Then Text9.Text = "Óñèëåíèå è âîññòàíîâëåíèå íåñóùåé ñïîñîáíîñòè"
If -2.245 >= h1 And i1 And j1 >= -1.96 Then Text9.Text = "Óñèëåíèå è âîñòàíîâëåíèå íåñóùåé ñïîñîáíîñòè"
If -1.96 >= h1 And i1 And j1 >= -1.8 Then Text9.Text = "Óñèëåíèå è âîñòàíîâëåíèå íåñóùåé ñïîñîáíîñòè"
If -1.8 <= h1 And i1 And j1 <= -1.64 Then Text9.Text = "Óñèëåíèå è âîñòàíîâëåíèå íåñóùåé ñïîñîáíîñòè"
If -1.64 >= h1 And i1 And j1 >= -1.28 Then Text9.Text = "Íåìåäëåííàÿ ýâàêóàöèÿ ëþäåé. Ïîñëå ýâàêóàöèè ëþäåé âûïîëíèòü ïîëíîå òåõíè÷åñêîå îáñëåäîâàíèå çäàíèÿ è ïî åãî ðåçóëüòàòàì âûïîëíèòü êàïèòàëüíûå âîññòàíîâèòåëüíûå ðàáîòû, ëèáî ñíîñ çäàíèÿ"
If -1.28 >= h1 And i1 And j1 >= -0.84 Then Text9.Text = "Íåìåäëåííàÿ ýâàêóàöèÿ ëþäåé. Ïîñëå ýâàêóàöèè ëþäåé âûïîëíèòü ïîëíîå òåõíè÷åñêîå îáñëåäîâàíèå çäàíèÿ è ïî åãî ðåçóëüòàòàì âûïîëíèòü êàïèòàëüíûå âîññòàíîâèòåëüíûå ðàáîòû, ëèáî ñíîñ çäàíèÿ"
If -0.84 >= h1 And i1 And j1 >= -0.52 Then Text9.Text = "Íåìåäëåííàÿ ýâàêóàöèÿ ëþäåé. Ïîñëå ýâàêóàöèè ëþäåé âûïîëíèòü ïîëíîå òåõíè÷åñêîå îáñëåäîâàíèå çäàíèÿ è ïî åãî ðåçóëüòàòàì âûïîëíèòü êàïèòàëüíûå âîññòàíîâèòåëüíûå ðàáîòû, ëèáî ñíîñ çäàíèÿ"
If -0.52 >= h1 And i1 And j1 >= -0.25 Then Text9.Text = "Íåìåäëåííàÿ ýâàêóàöèÿ ëþäåé. Ïîñëå ýâàêóàöèè ëþäåé âûïîëíèòü ïîëíîå òåõíè÷åñêîå îáñëåäîâàíèå çäàíèÿ è ïî åãî ðåçóëüòàòàì âûïîëíèòü êàïèòàëüíûå âîññòàíîâèòåëüíûå ðàáîòû, ëèáî ñíîñ çäàíèÿ"
If -0.25 >= h1 And i1 And j1 >= 0 Then Text9.Text = "Ñíîñ"
If 0 <= h1 And i1 And j1 <= 0.25 Then Text9.Text = "Íåìåäëåííàÿ ýâàêóàöèÿ ëþäåé. Ïîñëå ýâàêóàöèè ëþäåé âûïîëíèòü ïîëíîå òåõíè÷åñêîå îáñëåäîâàíèå çäàíèÿ è ïî åãî ðåçóëüòàòàì âûïîëíèòü êàïèòàëüíûå âîññòàíîâèòåëüíûå ðàáîòû, ëèáî ñíîñ çäàíèÿ"
If 0.52 >= h1 And i1 And j1 >= 0.25 Then Text9.Text = "Íåìåäëåííàÿ ýâàêóàöèÿ ëþäåé. Ïîñëå ýâàêóàöèè ëþäåé âûïîëíèòü ïîëíîå òåõíè÷åñêîå îáñëåäîâàíèå çäàíèÿ è ïî åãî ðåçóëüòàòàì âûïîëíèòü êàïèòàëüíûå âîññòàíîâèòåëüíûå ðàáîòû, ëèáî ñíîñ çäàíèÿ"
If 0.84 >= h1 And i1 And j1 >= 0.52 Then Text9.Text = "Íåìåäëåííàÿ ýâàêóàöèÿ ëþäåé. Ïîñëå ýâàêóàöèè ëþäåé âûïîëíèòü ïîëíîå òåõíè÷åñêîå îáñëåäîâàíèå çäàíèÿ è ïî åãî ðåçóëüòàòàì âûïîëíèòü êàïèòàëüíûå âîññòàíîâèòåëüíûå ðàáîòû, ëèáî ñíîñ çäàíèÿ"
If 1.28 >= h1 And i1 And j1 >= 0.84 Then Text9.Text = "Íåìåäëåííàÿ ýâàêóàöèÿ ëþäåé. Ïîñëå ýâàêóàöèè ëþäåé âûïîëíèòü ïîëíîå òåõíè÷åñêîå îáñëåäîâàíèå çäàíèÿ è ïî åãî ðåçóëüòàòàì âûïîëíèòü êàïèòàëüíûå âîññòàíîâèòåëüíûå ðàáîòû, ëèáî ñíîñ çäàíèÿ"
If 1.64 >= h1 And i1 And j1 >= 1.28 Then Text9.Text = "Íåìåäëåííàÿ ýâàêóàöèÿ ëþäåé. Ïîñëå ýâàêóàöèè ëþäåé âûïîëíèòü ïîëíîå òåõíè÷åñêîå îáñëåäîâàíèå çäàíèÿ è ïî åãî ðåçóëüòàòàì âûïîëíèòü êàïèòàëüíûå âîññòàíîâèòåëüíûå ðàáîòû, ëèáî ñíîñ çäàíèÿ"
If 1.8 <= h1 And i1 And j1 <= 1.64 Then Text9.Text = "Óñèëåíèå è âîñòàíîâëåíèå íåñóùåé ñïîñîáíîñòè"
If 1.96 >= h1 And i1 And j1 >= 1.8 Then Text9.Text = "Óñèëåíèå è âîñòàíîâëåíèå íåñóùåé ñïîñîáíîñòè"
If 2.245 >= h1 And i1 And j1 >= 1.96 Then Text9.Text = "Óñèëåíèå è âîñòàíîâëåíèå íåñóùåé ñïîñîáíîñòè"
If 2.245 <= h1 And i1 And j1 <= 2.53 Then Text9.Text = "Óñèëåíèå è âîññòàíîâëåíèå íåñóùåé ñïîñîáíîñòè"
If 2.555 >= h1 And i1 And j1 >= 2.53 Then Text9.Text = "Óñèëåíèå è âîññòàíîâëåíèå íåñóùåé ñïîñîáíîñòè"
If h1 And i1 And j1 >= 2.555 Then Text9.Text = "Òåêóùèé ðåìîíò"
If h1 And i1 And j1 >= 2.58 Then Text9.Text = "Òåêóùèé ðåìîíò"
End If
End Sub

суть в том , что заданые h1 , i1 , j1 должны находится в нужных промежутках для выполнения условия .
Заранее спасибо