Помогите пожалуйста найти ошибку

Function qwe(theArray As Variant) As Single
        Dim j As Integer, val As Single, n As Integer
        n = theArray.Columns.Count
        m = theArray.Rows.Count
        Do
        i = i + 1
          For j = 1 To n
           If j > n And i > m Then
              MsgBox "Такого числа в массиве данных нет"
              val = 0
              Exit For
              Exit For
              ElseIf theArray(i, j) > 0 Then
              val = theArray(i, j)
                  Exit For
           End If
             Next j
                     Loop Until i > m Or val > 0
             qwe = val
    End Function

Function qwe(rng As Range) As Single
   For Each c In rng
      If c > 0 Then
         qwe = c.Value
         Exit Function
      End If
   Next c
   MsgBox "Такого числа в массиве данных нет"
   qwe = 0
End Function

Function qwe(theArray As Variant) As Single
Dim val!, iCol%, j%, iRow&, i&
iCol = theArray.Columns.Count
iRow = theArray.Rows.Count
    For i = 1 To iRow 'по рядам
        For j = 1 To iCol 'по столбцам
            If theArray(i, j) > 0 Then
                val = theArray(i, j)
                Exit For
            End If
        Next j
        If val > 0 Then Exit For
    Next i
   If val = 0 Then MsgBox "Положительных чисел в массиве нет!"
    qwe = val
End Function
 
Sub proverka()
'Dim j As Long, InRange() As Variant, val As Single
'ActiveWorkbook.Worksheets("Лист1").Range("A1").CurrentRegion.Cells = Format(qwe(InRange(), "#,0"))
End Sub

Function qwe(xrng As Variant) As Single
   If TypeName(xrng) <> "String" Then
      MsgBox "Неверный аргумент. Должна быть строка."
   End If
   For Each c In ActiveSheet.Range(xrng)
      If c > 0 Then
         qwe = c.Value
         Exit Function
      End If
   Next c
   MsgBox "Такого числа в массиве данных нет"
   qwe = 0
End Function

   For Each c In ActiveSheet.Range(rng)
      If Not IsNumeric(c.Text) Then
         qwe = c.Text
         Exit Function
      End If
   Next c
   MsgBox "Текста нет"
   qwe = "***"