There is an error on line 12 of custom code BC30205 End of statement expected using rdl VBA

Question

I am working on an application I am facing an issue below is the error and the code

[rsCompilerErrorInCode] There is an error on line 12 of custom code: [BC30205] End of statement expected using rdl VBA

 <Code>

Function SetLocationValue(locationId as Integer, allLoc as Integer) As String
      Dim ret as String = ""
      if allLoc = 1 Then
             ret =  "&lt;root Selected="all"/&gt;"
      else
            ret =  "&lt;root Selected="list"&gt;&lt;id&gt; CStr(locationId)  &lt;/id&gt;&lt;/root&gt;"
      End If
            return ret
End Function

<!---SET DEPARTMENT-->
      
Function SetDepartmentValue(deptId As Integer, allDept As Integer) As String
      Dim ret as String = ""
      if allDept = 1 Then
            ret =  "&lt;root Selected="all"/&gt;"
      else
            ret =  "&lt;root Selected="list"&gt;&lt;id&gt; CStr(deptId)  &lt;/id&gt;&lt;/root&gt;"
      End if
            return ret
End Function
      
      <!---END-->


</Code>