How to get highest value from given values

Dim num, i, Length1
num=array(100,34,12,98,43,89,49,56)
Length1 = UBound(num) 'Find the length of array
For i= 1 to Length1
   If (num(i)>num(0)) Then
     num(0)=num(i)
   End If
Next
MsgBox num(0)