Well i can think of using a simple inputbox
choice=inputbox ("Enter your choice:"&vbNewLine& " Press 1 for Addition" &vbNewLine& " 2 for Subtraction" &vbNewLine& " 3 for Multiplication" &vbNewLine& " 4 for Division")
Select Case choice
Case "1":'call addition function
Case "2":call sub function
Case "3":call mul function
Case "4":call div function
Case else:msgbox "invalid choice"
End Select
choice=inputbox ("Enter your choice:"&vbNewLine& " Press 1 for Addition" &vbNewLine& " 2 for Subtraction" &vbNewLine& " 3 for Multiplication" &vbNewLine& " 4 for Division")
Select Case choice
Case "1":'call addition function
Case "2":call sub function
Case "3":call mul function
Case "4":call div function
Case else:msgbox "invalid choice"
End Select