In vbs, how does one obtain the maximum value position in an array?

In vbs, how does one obtain the maximum value position in an array?

 

The following vbs script can implement this function:

 

Public Function getarrmaxvalueindex (byval ARR)
Dim IX, ixmax
Ixmax = 0
For IX = 1 to ubound (ARR)
If (ARR (ixmax) <Arr (IX) then
Ixmax = IX
End if
Next
Getarrmaxvalueindex = ixmax
End Function

'Define array and index for Max entry
Dim arr, ixmax
'Initialize the Array
Arr = array (4, 1, 8, 6, 3, 6)
'Get the index of the max value
Ixmax = getarrmaxvalueindex (ARR)
'Print result
Msgbox "max value:" & Arr (ixmax) & "was found at" & ixmax & "index ."