Dim ED As Byte, Contpers As Double, NP As Double

Private Sub Form_Load()

NP = Val(InputBox("ingrése el número de personas"))
ED = Val(InputBox("ingrése su edad"))
Contpers = 0

While Contpers < NP And ED > 18
    
    Contpers = Contpers + 1
    
 If ED < 18 Then
    MsgBox ("su edad es de" & ED & "es menor de edad")
     Else

 End If
    Wend
  List1.AddItem ("hay" & Contpers & "personas")
  List1.AddItem ("el menor de edad tiene" & ED & "años")
  
                
End Sub