Переведите из паскаля в бейсик - VB

Формулировка задачи:

var
    decimal: word;
 
function hexadecimal(decimal:word):string;
var digit: byte; ch: char;
begin
    while decimal > 0 do begin
        digit := decimal mod 16;
        if digit in [10..15] then
            case digit of
            10: ch := 'A';
            11: ch := 'B';
            12: ch := 'C';
            13: ch := 'D';
            14: ch := 'E';
            15: ch := 'F'
            end
        else
            ch := chr(ord('0') + digit);
        hexadecimal := ch + hexadecimal;
        decimal := decimal div 16
    end;
end;
 
begin
    write('Decimal: ');
    readln(decimal);
 
    writeln(hexadecimal(decimal));
 
readln
end.

Решение задачи: «Переведите из паскаля в бейсик»

textual
                            Листинг программы 
                        

                            Sub переведите_из_паскаля_в_бейсик
MsgBox Hex(InputBox("Decimal: ", "Введите число")), vbInformation, "И ВСЁ!"
End Sub
                        