Найти модуль максимума в массиве

Private Sub Command1_Click()
Dim Z As Integer, A(1 To 4, 1 To 5) As Integer
 
For i = 1 To 4
For j = 1 To 5
A(i, j) = InputBox("введиде элемент массива А (" & i & "," & j & ")")
A(i, j) = Sin(A(i, j))
A(i, j) = Abs(A(i, j))
Next
Next
 
Z = A(1, 1)
For i = 1 To 4
For j = 1 To 5
If Z < A(i, j) Then Z = A(i, j)
Next
Next
 
q = MsgBox("модуль максимума в массиве А =" & Z)
 
End Sub

Private Sub Command1_Click()
Dim Z As Single, A(1 To 4, 1 To 5) As Single, maxA As Single
Dim maxi As Integer, maxj As Integer, i As Integer, j As Integer
Dim strArr As String, strSinArr As String
Randomize
 
For i = 1 To 4
     For j = 1 To 5
         A(i, j) = InputBox("введите элемент массива А (" & i & "," & j & ")", , Round((Rnd * 10 - 5), 2))
         strArr = strArr & A(i, j) & vbTab
         strSinArr = strSinArr & Round(Sin(A(i, j)), 4) & vbTab
     Next
     strArr = strArr & vbCrLf
     strSinArr = strSinArr & vbCrLf
Next
 
Z = Abs(Sin(A(1, 1))): maxi = 1: maxj = 1: maxA = A(1, 1)
 
For i = 1 To 4
     For j = 1 To 5
         If Z < Abs(Sin(A(i, j))) Then Z = Abs(Sin(A(i, j))): maxi = i: maxj = j: maxA = A(i, j)
     Next
Next
 
MsgBox "Исходный массив" & vbCrLf & vbCrLf & strArr & vbCrLf & _
       "Синусы элементов массива" & vbCrLf & vbCrLf & strSinArr & vbCrLf & _
       "Максимальный Mодуль Sin элемента в массиве А равен " & Z & vbCrLf & _
       "Элемент массива А" & "(" & maxi & "," & maxj & ") =" & maxA
 
End Sub