怎样在Mscom＿Output为Hex:0xfe格式

Question

各位：
　怎样在Mscom＿Output为Hex:0xfe格式：如下：
Private Sub Command1_Click()
Dim Brwl As String
With MSComm1
.Output = Text1.Text‘怎样在Mscom＿Output为Hex:0xfe格式
End With
End SubPrivate Sub Command2_Click()
With MSComm1
 Text2.Text = .Input
End WithEnd SubPrivate Sub Form_Load()
With MSComm1
.CommPort = 1 'Val(Gpibsetfrm.Text8.Text) 'select Commport Number
.Settings = "1200,N,8,2" 'Setting Parameter see User's manual
.PortOpen = True 'Open Commport
.DTREnable = True '﹚璶砞Trueぃ礛穦礚猭Read Data
.EOFEnable = True '﹚璶砞Trueぃ礛穦礚猭Read Data
.RTSEnable = True '﹚璶砞Trueぃ礛穦礚猭Read Data
.InputMode = comInputModeText
.InputLen = 0
End With
End SubPrivate Sub Form_Unload(Cancel As Integer)
.CommPort = 1 'Val(Gpibsetfrm.Text8.Text) 'select Commport Number
.Settings = "1200,N,8,2" 'Setting Parameter see User's manual
.PortOpen = False

Answer 1

Private Sub Command1_Click()
Dim Brwl As Byte
Brwl=val(text1.text)
With MSComm1
.Output = Brwl‘Hex:0xfe格式
End With
End Sub

Answer 2

Private Sub Command1_Click()
Dim Brwl(0) As Byte
Brwl(0)=val(text1.text)
With MSComm1
.Output = Brwl‘Hex:0xfe格式
End With
End Sub