On Error Resume Next
Dim data(7) As Integer
Dim tem As Integer, i As Integer

data(0) = 34
data(1) = 19
data(2) = 78
data(3) = 1000
data(4) = 2
data(5) = 600
data(6) = 99


For i = LBound(data) To UBound(data)

    If data(i) - data(i - 1) > temp Then
        temp = data(i)
    End If

  Next i
MsgBox (temp)

'*********************************************************
' Sub SortStringArray(Array() As String)
'
' Método que ordena alfabéticamente una matriz de tipo
' string de una sola dimensión.
'
' Argumentos
'   Array(): La matriz que se ha de ordenar
'
' Este método NO necesita activar el objeto WizHook a
' través de la propiedad Key.
'
Sub wzSortStringArray()
Dim wzArray(7) As String
    
wzArray(0) = Format(34, "0000")
wzArray(1) = Format(19, "0000")
wzArray(2) = Format(600, "0000")
wzArray(3) = Format(1000, "0000")
wzArray(4) = Format(2, "0000")
wzArray(5) = Format(78, "0000")
wzArray(6) = Format(99, "0000")

    'Debug.Print "Matriz sin ordenar:"
    For i = LBound(wzArray) To UBound(wzArray)
     '   Debug.Print wzArray(i)
    Next
    
    WizHook.SortStringArray wzArray
    
    minumero = wzArray(UBound(wzArray) - 1)
    MsgBox (minumero)
End Sub