Text1.textにno1という名前をつけました。
Text1.textの文字が0だった場合「正しいです」が表示されて、それ以外だった場合「違います」が表示されるのは出来ました。

If no1 = Chr(48) Then
MsgBox ("正しいです")
Else: MsgBox ("違います")
End If

Text1.textが0か1だった場合に「正しいです」が表示され、それ以外の場合に「違います」が表示されるようにするにはどうすればいいのでしょうか？