Function GetColorName(ByVal myColor as Color)as String
 
' Dim Colorname as String 
' mach was mit meinen RGB-werten von myColor
' und vergleiche bis der Arzt kommt
' und schreib in Colorname
 
Return Colorname
End Function