VB上位机传送两个十六进制数

现在我想编一个VB上位机程序，通过串口向单片机传送两个十六进制数，但第一个固定为01，第二个随输入而改变，比如输入014F等等，我这里有传送一个十六进制数的程序：
Private Sub Cmdsend_Click()
c = numText.Text
If (c = "FF") Then
data1 = "&H" & c
data = Chr(data1)
Else
a = Left(c, 1)
b = Right(c, 1)
data1 = "&H" & numText.Text
data = Chr("&H" & a) & Chr("&H" & b)
End If
MSComm1.Output = data
Cmdsend.Enabled = False
End Sub
请问怎么传送两个十六进制数？
我现在有两种想法，
第一：就是直接输入两个十六进制数，01XX，然后通过串口传送
第二：直接输入一个十六进制数XX，第一个十六进制数01固定在程序中，就是无论发什么数，都是和XX一块发送的
VB程序怎么编，在线等，跪求，急用！！！