新建From1（窗体），新建Command1（按钮CommandButton），代码：

Private Sub Command1_Click()
    Dim intByte As Integer
    Dim strAll As String
    Dim strChar As String
    
    intByte = Asc(Left(Text1, 1))
    
    If intByte >= 32 And intByte <= 126 Then
        strChar = strChar & Chr(intByte)
    Else
        strChar = strChar & "?"
    End If
    Debug.Print strChar
End Sub

在Text1中输入一个字符可以在debug中看到，如果输入中文等就显示?号。