>>422
> コマンドがクリックされた瞬間にしに処理が行われ
> 目的の場所に最大値を出力する
> という風にしたいんですが、それは可能ですか？
可能です

> 今そのソースをコマンドのプロシージャに組み入れたんですが
> 途中にEnd Subを入れる必要があると表示されてしまって
先ずは基礎の文法から理解してください
というのがセオリーなんでしょうが、とりあえずこんな感じです
Option Explicit
Private WithEvents btn          As CommandButton
Private list(1 To 10)           As Integer
Private Sub btn_Click(): MsgBox "目的の場所に" & maxItem(list) & "を出力する": End Sub
Private Sub Form_Load()
    list(5) = 100
    Set btn = Me.Controls.Add("VB.CommandButton", "btn")
    Call btn.Move(0, 0, 500, 500): btn.Visible = True
End Sub
Public Function maxItem(ByRef i() As Integer) As Integer
    Dim k As Long
    maxItem = i(LBound(i))
    For k = LBound(i, 1) + 1 To UBound(i, 1)
      If maxItem < i(k) Then maxItem = i(k)
    Next
End Function