Private Sub tui(ByVal i As Integer)
 
        ' Methode 1
        Dim ui As UInt32 = UInt32.Parse(i.ToString("x"), _
          System.Globalization.NumberStyles.AllowHexSpecifier)
        Debug.WriteLine(ui.ToString("x"))
 
        ' Methode 2
        Dim b() As Byte = BitConverter.GetBytes(i)
        ui = BitConverter.ToUInt32(b, 0)
        Debug.WriteLine(ui.ToString("x"))
 
        ' Methode 3 (nicht für negative Nummern)
        Try
            ui = Convert.ToUInt32(i)
            Debug.WriteLine(ui.ToString("x"))
        Catch
            Debug.WriteLine("Invalid conversion")
        End Try
    End Sub