Прошу написать программу в Microsoft Visual Basic 6.0 - VB

Формулировка задачи:

Верно ли, что у 1-го предприятия стабильный спад выпуска продукции был более продолжительным, чем у 2-го и 3-го? Написать процедуры: 1)ввода исходных данных; 2)обработки исходных данных; 3)вывода результата. Используя эти процедуры, разработать проект для решения поставленной задачи. Все данные брать из инпут бокс.

Решение задачи: «Прошу написать программу в Microsoft Visual Basic 6.0»

textual
                            Листинг программы 
                        

                            Private Sub Command1_Click()
 
Dim ps1 As Integer
Dim ps2 As Integer
Dim ps3 As Integer
 
ps1 = InputBox("продолжительность периода спада первого предприятия")
ps2 = InputBox("продолжительность периода спада второго предприятия")
ps3 = InputBox("продолжительность периода спада третьего предприятия")
 
If ps1 > ps2 And ps1 > ps3 Then
    MsgBox "Верно"
    Else
    MsgBox "Неверно"
End If
 
End Sub
                        