Well this sort of worked for me, I actually did not run it, but got no issues when I removed the period. This

Public Function.GetColor(ByVal groupingValue As String) As String

to this:

Public Function GetColor(ByVal groupingValue As String) As String