VBA函数返回类型不匹配

Question

我有一个调用另一个函数的函数。这全是一个功能，但是太大了。

Function Wave(SubjectLine As Range)
Dim SubV
SubV = SubjectLine.Value
   Dim regEx, Match, Matches   ' Create variable.
   Set regEx = New RegExp   ' Create a regular expression.
   regEx.Pattern = "[0-9][0-9][0-9][0-9][0-9][-][a-z][a-z][a-z]?[a-z]?[a-z]?[a-z]"
   regEx.IgnoreCase = True   ' Set case insensitivity.
   regEx.Global = True   ' Set global applicability.
   Set Matches = regEx.Execute(SubV)   ' Execute search.
   For Each Match In Matches   ' Iterate Matches collection.
      RetStr = RetStr & Match.Value

   Next
    If RetStr = 0 Then
        WaveSort = "Not Found"
        Exit Function
    End If


    DivR = DivResult(Left(RetStr, 5))

...then something else

Function DivResult(PL As Integer)


        Select Case PL
        Case 1
        DivResult = "Wave1"
        ...
        Case Else
        DivResult = "NO"
        End Select
End Function

我的结果始终是数据类型不匹配。我尝试过更改变量类型，重命名以及所有我能想到的东西。左将变量变为整数，所以我只接受了它，但似乎没有任何效果。