how do i convert numerical numbers into hex letters?

how do i convert numerical numbers into hex? and Visa Versa

Try this:

Code:

---

Private Sub Command1_Click()
    Dim strHex As String
   
    'To convert to Hex
    strHex = "&H" & Hex(125) 'use any number
    MsgBox strHex
   
    'To convert back to decimal
    MsgBox CLng(strHex)
End Sub

---