Chr and ChrB.. Why doesn't work????

[oVeRRiDe]

Hi everyone,
I have tried a sample code in a form with 2 buttons and 3 textfields:

Private Sub Command1_Click()
Text3.Text = Asc(Text1.Text)
End Sub

Private Sub Command2_Click()
If Text3.Text > 31 Then
Text2.Text = Chr(Text3.Text)
Else
Text2.Text = ChrB(Text3.Text)
End If
End Sub

This should work, but when i put in Text3 a value under 31, in Text2 nothing appears. Can you help me please?