я пишу код следующим образом:

Call search(xx, yy, "APM Output", ">> State Scalars", label1)

label1:
      ...........

это скрипт поиска

Sub search(row As Variant, col As Variant, wkst As String, str As String, label_num As Name)
For row = 1 To 100
  For col = 1 To 100
    strTemp = Worksheets(wkst).Cells(row, col).Value
    If InStr(strTemp, str)  0 Then
        GoTo label_num
    End If
  Next
Next
End Sub

Я хочу сначала вызвать под поиск (..), а затем перейти к label1. Проблема в том, что говорит, что "ByRef несоответствие типов аргументов " для label_num. Какой должен быть правильный тип label_num в дополнительном поиске (.., .., ..,label_num)?

я добавляю оригинальный скрипт, это то, что я хочу преобразовать в подпрограмму ()

For xx = 1 To 100
    For yy = 1 To 100
        strTemp = Worksheets("APM Output").Cells(xx, yy).Value
        If InStr(strTemp, ">> State Scalars")  0 Then
            GoTo label1
        End If
    Next
Next
label1:
    For uu = 1 To 100
        For vv = 1 To 100
            strTemp = Worksheets("APM Output").Cells(uu, vv).Value
            If InStr(strTemp, ">> GPU LPML")  0 Then
                GoTo label2
            End If
        Next
    Next
label2:
    For mm = 1 To 100
        For nn = 1 To 100
            strTemp = Worksheets("APM Output").Cells(mm, nn).Value
            If InStr(strTemp, ">> Limits and Equations")  0 Then
                GoTo label3
            End If
        Next
    Next