VB6 Textbox Value Send

I'm entering a number in the text box.There is no any delimiter or commas.I'm entering a number between 1 to 16 & that value will output through serial port.

The problem is, it will send numbers from 1 to 9.From 10 & above it wont send,I think VB compiler thinks as two separate characters...!!!

Ex:
I type 1 & I press command button then it must send 1
I type 2 & I press command button then it must send 2
I type 3 & I press command button then it must send 3
I type 10 & I press command button then it must send 10
I type 16 & I press command button then it must send 16

The below code does not work well.

MSCom1.Output = chr(text1.text)