VBE -demo code for popup menu and MessageBox

Public Function ADDER(I As Integer)
Dim ADL As Integer
Dim NDS As Integer
NDS = InputBox(“Give me some input”)
If I > 50 Then
MsgBox “I is too High”
End If
ADL = 42
ADDER = ADL + I + NDS
End Function