Dim nDezimal As Long
  Dim sHex As String
 
  ' Dezimal nach Hex
  nDezimal = 100
  sHex = Hex$(nDezimal)
  MsgBox sHex
 
  ' Hex nach Dezimal
  nDezimal = CLng("&H" & sHex)
  MsgBox CStr(nDezimal)

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de