Dim d As Single 
    Dim b, c As String
    Private Function wandel(ByVal a As Integer)
        Dim bs As Single
        bs = a / 256
        bs = Fix(bs)
        b = bs.ToString("00") 'wandlung von singe bs in string mit zwei 
        ' Vorkommastellen
        d = b * 256
        c = a - d
        c = Hex(c)
    End Function

DJ Booking + Veranstaltungstechnik: www.roadresidents.de