小王編寫了一個VB程序，用于進行“金蟬素數(shù)”的驗證，具體功能：在文本框Text1中輸入一個3位至9位且為奇位數(shù)的數(shù)字，單擊“驗證”按鈕Command1，在列表List1中分布顯示驗證的結(jié)果，并在標簽Label2中顯示該數(shù)是否為“金蟬素數(shù)”。該程序運行時的界面如圖所示：

題中“金蟬素數(shù)”的判定原則，該數(shù)為素數(shù)，同時去除該數(shù)的前X位及后X位所得到的數(shù)仍是素數(shù)。例如：521、13597、3573971等都是“金蟬素數(shù)”。
實現(xiàn)上述功能的VB程序如下，但加框處代碼有錯，請改正：
Private Sub Command1_Click（　?。?br />      Dim n As Integer,j As Integer,y As Long
      Dim s As String,flag As Boolean
      List1．Clear
      s=Text1．Text
      n=Len（s）
      If n＞9 Or n＜3 Or n Mod 2=0 Then
            Label2．Caption=“待驗證的數(shù)字輸入有誤！“
      Else
            j=0
            flag=True
            Do While And flag=True'（1）
                     y=Val（Mid（s,j+1，n+j*2））
                     If prime（y）=False Then
                           flag=False
                           List1．AddItem Str（y） &“不是素數(shù)：“
                     Else
                           List1．AddItem Str（y） &“是素數(shù)：“
                     End If
                     j=j+1
            Loop
            If j=n\2+1 And flag=True Then
                Label2．Caption=s &“是金蟬素數(shù)！“
            Else
                Label2．Caption=s &“不是金蟬素數(shù)！“