Attribute VB_Name = "Sample4"
Option Explicit

Sub ThreeNumbers()
  Dim num1 As Integer, num2 As Integer, num3 As Integer
  num1 = 10
  num2 = 20
  num3 = 30

  MsgBox MyAverage(num1, num2, num3)
  MsgBox num1
  MsgBox num2
  MsgBox num3
End Sub