' Collection of code snippets by Arne Vajhøj ' posted to eksperten.dk, usenet and other places (2002-now) Imports System Imports System.Globalization Module Program Function R(s As String) As Single Return Integer.Parse(s.Substring(1, 2), NumberStyles.HexNumber) End Function Function G(s As String) As Single Return Integer.Parse(s.Substring(3, 2), NumberStyles.HexNumber) End Function Function B(s As String) As Single Return Integer.Parse(s.Substring(5, 2), NumberStyles.HexNumber) End Function Sub Main() Console.WriteLine(R("#990000")) Console.WriteLine(G("#990000")) Console.WriteLine(B("#990000")) End Sub End Module