What is wrong with this code? Thank you

ljeternity

Private Sub Command1_Click()
Dim s As Integer
s = Text1.Text
If s Mod 3 = 0 Then x = MsgBox("It is a multiple of 3", vbOKOnly, "Value judgment")
Else: If s Mod 3 <> 0 Then x = MsgBox("Not a multiple of 3", vbOKOnly, "Numerical judgment")
End If
End Sub

Anyway, it cannot be executed

maker_cn

Private Sub Command1_Click()
Dim s As Integer
s = Text1.Text
If s Mod 3 = 0 Then
     x = MsgBox("is a multiple of 3", vbOKOnly, "numerical judgment")
Else
     If s Mod 3 <> 0 Then
          x = MsgBox("Not a multiple of 3", vbOKOnly, "Value judgment")
     End If
End If
End Sub

ljeternity

The one upstairs is sorry, your one is also wrong. Prompt that else there is no if

fenghui1231

Private Sub Command1_Click()
Dim s As Integer
s = Text1.Text
If s Mod 3 = 0 Then x = MsgBox("It is a multiple of 3", vbOKOnly, "Value judgment")
If s Mod 3 <> 0 Then x = MsgBox("Not a multiple of 3", vbOKOnly, "Value judgment")
End Sub
that's it