Option Explicit
Sub fun()

Dim a As Integer
Dim result As Integer
Dim msg As String
msg = "Podaj bok szescianu: "
a = InputBox(msg)
If a < 0 Then MsgBox "A musi być dodatnie."
Exit Sub

result = a * a * a
MsgBox result

End Sub