[.ShoXx!]

Hi,
ich hab auf meinem Lap noch ein altes VB6-Projekt, das ich gerne in C# oder VB.NET nachmachen will, jedoch habe ich noch nie in VB6 gearbeitet und suche deshalb jemanden der mir das vielleicht übersetzen könnte. Es geht um folgenden kleinen Code:

Private Function longToHex(l As Long) As String
    longToHex = Hex(l)
    If Len(longToHex) < 4 Then longToHex = String(4 - Len(longToHex), "0") & longToHex
    longToHex = Right(longToHex, 2) & Left(longToHex, 2)
End Function

Würde mich sehr freuen, wenn mir jemand helfen könnte!