値のリストから最大値を判定するというプログラムを書きたいんですが

Dim a(10) As Integer

If a(10) > Then

End If

この2行目で判定の対象となる値を全て比較して一番大きい値を出す
ような処理を書かなければならないんですがよく分かりません・・・
a(A )> a(A+1)
のような書き方になるのでしょうか？
今のとこ上手くまとまりませんが・・・