Нужно написать парочку решений

Private Sub Комманда1_Click()
Dim X, P, O, R
P = 0
O = 0
1
X = InputBox("Введите число", "Ввод данных")
Select Case X
Case "" ' если отмена
GoTo 1
Case -1
GoTo 2
Case Is >= 0
P = P + 1
GoTo 1
Case Is < 0
O = O + 1
GoTo 1
2
End Select
R = IIf(P = O, "по ровну", IIf(P > 0, "больше", "меньше"))
MsgBox "Положительных ( " & P & " )" & vbCrLf & R & vbCrLf & "отрицательных  ( " & O & ")", 64, "Результат"
End Sub

Private Sub Комманда2_Click()
Dim X, i
X = Val(InputBox("Введите число", "Ввод данных", 426))
Cls
For i = 1 To X / 2
If X Mod i = 0 Then Print i
Next i
End Sub

Dim i As Integer, iDet As Integer
iDet = 25
For i = 2 To 8
    iDet = iDet + 3
Next
MsgBox "Otvet: " & iDet

Dim i, iCntO As Integer, iCntP As Integer, sStr As String
On Error Resume Next
Do
    i = Val(InputBox("Input data:"))
    If i >= 0 Then
      iCntP = iCntP + 1
    Else
       iCntO = iCntO + 1
    End If
Loop Until i = -1
 
Select Case iCntO - iCntP
    Case Is > 0: sStr = "Отрицательных больше"
    Case Is < 0: sStr = "Положительных больше"
    Case Else:   sStr = "Равное количество"
End Select
MsgBox sStr

Option Explicit
 
Private Sub Комманда1_Click()
Dim TX
Dim KOD As String
KOD = InputBox("Введите код города", "Справосник кодов городов", "05632")
Select Case KOD
Case "044"
TX = "Киев"
Case "05632"
TX = "Павлоград"
Case "05633"
TX = "Першотравенск"
Case Else
 
TX = "Городов с таким кодом не существует"
End Select
MsgBox TX, 64, "Город"
 
End Sub