Stamp

x VAR Word
x=2345
main:
SEROUT 16,16468,[DEC x]
PAUSE 1000
GOTO main

VB6 Form load

With MScomm1
	.CommPort = 1
	.RThreshold = 1
	.Settings = "9600,n,8,1"
	.PortOpen = True
	' Leave all other settings as default values.
End With

VB6 MScomm_OnComm

 Dim InBuff As Int16

        InBuff = MScomm1.Input
        TextBox1.Text = InBuff
 