Const MSG_SYS As Byte = 0
 
Private Sub Form_Load()
   Dim MSG_SYS_GET As Byte
   MSG_SYS_GET = MSG_SYS + 1
 
   MsgBox "00FE" & HexConv(MSG_SYS_GET) & "FE"
 
   Unload Me
End Sub
 
Private Function HexConv(b As Byte) As String
   HexConv = Right("00" & Hex(b), 2)
End Function