Dim Zahl As Double
  Dim HEX As String
  Dim a As Double
  Dim b As Double
  Dim tmp As Double
  Dim rest As Double
 
  Dim ARHEX(0 To 15) As String
  Dim i As Integer
 
  For i = 0 To 9
    ARHEX(i) = CStr(i)
  Next i
  For i = 0 To 5
    ARHEX(10 + i) = Chr(Asc("A") + i)
  Next i
 
  Zahl = CDbl(txtZahl)
 
  a = CDbl(Int(Zahl))
  b = Zahl - a
 
  HEX = vbNullString
 
  While a >= 16#
 
    tmp = a \ 16
    rest = a - tmp * 16#
    a = tmp
    HEX = ARHEX(Int(rest)) & HEX
 
  Wend
  HEX = ARHEX(Int(a)) & HEX
 
  HEX = HEX & "."
 
  i = 1
  While b > 10 ^ -12 And i <= 12
 
    b = b * 16
    rest = CDbl(Int(b))
    b = b - rest
    HEX = HEX & ARHEX(Int(rest))
 
    i = i + 1
  Wend
 
  lblHex.Caption = HEX

Gruß
Dirk

--
?Get it right the first time