串口接收数据怎么只显示小弟我需要的字符串和符号

串口接收数据如何只显示我需要的字符串和符号
我想串口接收到数据以后只显示我需要的字符在文本text1中，我的代码如下，我这样写的话在TEXT1文本中只能输入我指定的字符或符号，但是从串口接收到数据以后无论是什么字符都会显示在Text1中，我要怎么改呢？？

Public Function Alphabet_Digit_Only(ByVal KeyAscii As Integer) As Integer
Select Case KeyAscii
   Case 8, 45, 24147, 33, 40, 59, 41, 58, 46, 44, 32, 9, 13, &H30 To &H39, Asc("A") To Asc("Z"), Asc("a") To Asc("z"), Asc("0") To Asc("9")
     Alphabet_Digit_Only = KeyAscii
   Case Else
     Alphabet_Digit_Only = 0
   End Select

End Function


Private Sub Text1_KeyPress(KeyAscii As Integer)
KeyAscii = Alphabet_Digit_Only(KeyAscii)
End Sub
------解决思路----------------------
Private Sub Text1_TextChanged