Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        Dim bytes() As String = wandeln(2000)
        MsgBox("Zahl = Byte0: " & bytes(0) & ", Byte1:" & bytes(1))
    End Sub
 
    Private Function wandeln(ByVal Zahl As Integer) As String()
        Dim result(1) As String
 
        Dim H As String = "0000" & Convert.ToString(Zahl, 16)
        H = H.Substring(H.Length - 4)
 
        result(0) = H.Substring(0, 2)
        result(1) = H.Substring(2, 2)
 
        Return result
    End Function

Gru?

Silver