怎麼知道字串是不是中文?

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