Número, Cuadrado y Cubo

Private Sub Command1_Click()
Dim num, i As Integer
Dim item As String
numero = InputBox("captura el numero", "pendejo", 0)
For i = 1 To numero
item = Str(i) + Space(15) + Str((1 * 1) * i * i) + Space(15) + Str((1 * 1) * i * i * i)
List1.AddItem item
Next i
End Sub