Найти минимальный и максимальный элемент массива

Sub Макрос1()
Dim myArray() As Single
Dim i As Integer
Dim MinЗначение As Single
Dim MaxЗначение As Single
Dim MinЭлемент As Long
Dim MaxЭлемент As Long
MinЗначение = myArray(0)
MaxЗначение = myArray(0)
MinЭлемент = 0
MaxЭлемент = 0
For i = 0 To UBound(myArray())
    If myArray(i) < MinЗначение Then
        MinЗначение = myArray(i): MinЭлемент = i
    ElseIf myArray(i) > MaxЗначение Then
        MaxЗначение = myArray(i): MaxЭлемент = i
    End If
Next i
MinЭлемент
MaxЭлемент
End Sub

Option Explicit
Option Base 1
Sub Mass()
Dim M1() As Integer, M2() As Integer, n As Integer, i As Integer, max As Integer, min As Integer, _
Str1 As String, Str2 As String, Str3 As String, M3() As Integer
Dim MNO As Integer
n = InputBox("Введите количество элементов массива", "Определение размера массива")
ReDim M1(n), M2(n), M3(n)
 
Randomize
For i = 1 To n
M1(i) = Int(10 * Rnd + 1)
M2(i) = Int(10 * Rnd + 1)
Str1 = Str1 & M1(i) & " "
Str3 = Str3 & M2(i) & " "
Next
 
min = M2(1)
For i = 2 To n
If M2(i) < min Then min = M2(i)
Next
 
max = M1(1)
For i = 2 To n
If M1(i) > max Then max = M1(i)
Next
 
MsgBox "Массив: " & Str1 & Chr(13) & "Максимальный элемент: " & max & Chr(13) & _
"Минимальный элемент: " & min & Chr(13)
 
End Sub

Option Explicit
Option Base 1
Sub Mass()
Dim M1() As Integer, M2() As Integer, n As Integer, i As Integer, max As Integer, min As Integer, _
Str1 As String, Str3 As String
n = InputBox("("Введите количество элементов массива", "Определение размера массива")
ReDim M1(n), M2(n), M3(n)
Randomize
For i = 1 To n
M1(i) = Int(10 * Rnd + 1)
M2(i) = Int(10 * Rnd + 1)
Str1 = Str1 & M1(i) & " "
Str3 = Str3 & M2(i) & " "
Next
max = M1(1)
min = M1(1)
For i = 2 To n
If M1(i) < min Then min = M1(i)
If M1(i) > max Then max = M1(i)
Next
MsgBox "Массив №1:   " & Str1 & Chr(13) & "Максимальный элемент: " & max & Chr(13) & _
"Минимальный элемент: " & min & Chr(13)
min = M2(1)
max = M2(1)
For i = 2 To n
If M2(i) > max Then max = M2(i)
If M2(i) < min Then min = M2(i)
Next
MsgBox "Массив №2:  " & Str3 & Chr(13) & "Максимальный элемент: " & max & Chr(13) & _
"Минимальный элемент: " & min & Chr(13)
End Sub

Sub BySorting() 'выводит максимум и минимум из колонки чисел в документе Word
Const n = 5     'количество чисел
Dim min, max, dano
    ActiveDocument.Content.Text = "" 'убрали (старый) текст
    
    For i = 1 To n
    Selection.TypeText Chr(13) & Round(100 * Rnd, 0) '«набиваем» n чисел
    Next
 
    dano = Replace(ActiveDocument.Content.Text, Chr(13), Space(2)) 'что дано
    
    Selection.Sort
 
    min = ActiveDocument.Paragraphs(2) '.First не подходит: 1-й абзац пустой
    max = ActiveDocument.Paragraphs.Last
    
    MsgBox "min = " & min & "max = " & max & vbCr & dano, vbInformation
    'для справки выводим также исходный ряд чисел, через пробелы (вместо абзацев)
    ActiveDocument.Undo 'возвратили исходный (случайный) порядок чисел
End Sub

Sub f()
Dim n As Integer, i As Integer
Dim max As Double, min As Double
n = InputBox("Введите количество элементов массива", "Ввод")
max = 1
min = 1
ReDim mas(1 To n) As Double
For i = 1 To n
mas(i) = InputBox("Введите элемент <" & i & ">", "Ввод")
max = mas(i)
min = mas(i)
Next
For i = 1 To n
If mas(i) > max Then
max = mas(i)
End If
Next i
For i = 1 To n
If mas(i) < min Then
min = mas(i)
End If
Next i
MsgBox "max = " & max & " min = " & min, 64, "Ответ"
End Sub

 Sub m()
Dim i%, k%, p$
Dim arr, mx#, mn#, ar#
p = Trim(Replace(InputBox("вводим эл. массива через запятую"), ",", " "))
arr = Split(p, " ")
If UBound(arr) > 1 Then
ar = Val(Trim(Replace(arr(LBound(arr)), ",", ".")))
mx = ar: mn = mx
For i = 1 To UBound(arr)
ar = Val(Trim(Replace(arr(i), ",", ".")))
mx = IIf(mx > ar, mx, ar)
mn = IIf(mn < ar, mn, ar)
Next i
Print p: Print
Print "max="; mx; "    "; "min="; mn
Else
MsgBox "Error"
End If
End Sub