how do i convert numerical numbers into hex letters?

[dimava]

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

[Serge]

Try this:

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