получить ошибку «Несоответствие типов аргументов ByRef»

Question

У меня есть следующий код:

sub refresh()
dim result2 as string
dim m as integer
dim activeWS as worksheet
For m = 6 To 10
            code = activeWS.Cells(m, 8).Value
            result 2 = "lkdsjlfaksj" ;a query, I would just put a random string for now, and it would change every time based on value of m
            Call GetOTCStruc(result2, m)
            Next m
end sub

', затем я делаю что-то с другой функцией, которую я сейчас просто исключаю из кода

Option Explicit
Public Sub GetOTCStruc(result2 As String, m As Integer)


    ...
End Sub

Однако у него естьошибка выделения части при вызове GetOTCStruc (result2, m);есть идеи почему?

Спасибо!