怎麼知道字串是不是中文?
Private Sub Command1_Click() If Asc(Text1.Text) >= -23488 And Asc(Text1.Text) <= -1579 Then MsgBox "Is an Chinese Character" Else MsgBox "Not an Chinese Character" End If End Sub