What you have is the hex representation of number, what the function wants is the actual number.
I so what you need to do is convert the hex string to a number first:
Dim xCol As Int32
Dim k As Color
xCol = Int32.Parse(clspfjbs02.colrnameob, HexNumber)
k = System.Drawing.ColorTranslator.FromHtml(xCol)