Fra PHP til VB

Jeg har følgende kode i PHP:

<?PHP
function hsb2rgb($hue, $saturation, $brightness) {

    /* 0: minimum, +: rising, -: falling, 1: maximum. */
    $map = array(0 => array('1', '+', '0'),
                1 => array('-', '1', '0'),
                2 => array('0', '1', '+'),
                3 => array('0', '-', '1'),
                4 => array('+', '0', '1'),
                5 => array('1', '0', '-'));

    /* Clip hue at 360: */
    $hue = $hue % 360;

    $i = floor($hue/60);
    $rgb = array();

    $min = 255 * $brightness/100 * (100-$saturation)/100;
    $max = 255 * $brightness/100;

    for ($color = 0; $color < 3; $color++) {
        switch($map[$i][$color]) {
        case '0':
            $rgb[$color] = $min;
            break;
        case '1':
            $rgb[$color] = $max;
            break;
        case '+':
            $rgb[$color] = $min + ($hue % 60)/60 * ($max - $min);
            break;
        case '-':
            $rgb[$color] = $max - ($hue % 60)/60 * ($max - $min);
            break;
        }
    }

    return $rgb;

}
?>

og den vil jeg gerne have omformuleret til VB eller hvis nogen allerede har nogle scripts eller lignende ang. hsb-værdier kontra rgb-værdier, så må I også meget gerne smide nogle links til dem :)