rdlc function

Public Function functionname(ByVal val as String) As String
   Dim reternval as String = ""


 If (val = "Condition1")
          reternval = "Result"
 Else If (val = "Condition2")
        reternval = "Result"
Else If (val = "Condition3")
       reternval = "Result"
Else If (val = "Condition4")
      reternval = "Result"
Else If (val = "Condition5")
     reternval = "Result"
Else If (val = "Condition6")
      reternval = "Result"
Else
     reternval = "Result"
End If

   Return reternval

End Function