Visual Basic Excel l.całkowitą przedstawić w postaci szesnastkowej

[fugaz]

Dzień dobry 
Mam problem z zadaniem "Zadaną liczbę całkowitą przedstawić w postaci szesnastkowej"
Mogę nawet zapłacić za pomoc bo sytuacja jest strasznie słaba

[Szachista]

Dzień dobry, czy możesz pokazać, co Ci udało się zrobić do tej pory? To zadanie można rozwiązać na przynajmniej 2 sposoby, więc rzucisz na siebie podejrzenie, rozwiązując go nie tak, jak oczekuje tego nauczyciel.

[fugaz]

Jak bym wiedział jak to zrobić to bym się nie pytał Proszę o pomoc. Zapłacę jak coś bo muszę to mieć na jutro.

---

Pomożesz?

[Szachista]

Kod:

Sub DziesietnaSzesnastkowa()
    Dim n, d As Integer
    Dim h As String
    n = InputBox("Podaj liczbe dziesietna")
    While n > 0
        d = n Mod 16
        If d < 10 Then
            h = Chr(48 + d) + h
        Else
            h = Chr(55 + d) + h
        End If
        n = Int(n / 16)
    Wend
    MsgBox (h)
End Sub

[fugaz]

Bardzo dziękuje )