Dim bytes() As Byte
		Using fs As New FileStream("TestFile.bin", FileMode.Open, FileAccess.Read)
			Using reader As New BinaryReader(fs)
				bytes = reader.ReadBytes(CInt(fs.Length))
			End Using
		End Using
 
		uxStatus.Text = "Baue Darstellung..."
		Dim sb As New StringBuilder(2 * bytes.Length)
		For Each b In bytes
			sb.Append(String.Format("{0:X2}", b))
		Next
 
		uxView.Text = sb.ToString()

Ralf