Cześć, wywołanie poniższej funkcji powoduje tytułowy błąd. W czym tkwi problem? Idea jest taka by zwrócić fragment tekstu do znaku "+" (wyłącznie).
Public Function find(Inn) As Long
temp = ""
For i = 1 To Len(Inn)
ch = Mid(Inn, i, 1)
If ch Like "[!+]" Then
temp = temp & ch
End If
Next i
find = CLng(temp)
End Function
Błąd występuje zarówno przy argumencie typu string jak i range.