為何執行的結果是錯的....???(編號：5702)

Public Sub se()
If s1 = 0 Then '假如都不存在
Start.List1.Clear
Start.List1.AddItem "會員資料庫不存在"
Start.List1.AddItem "業務員資料庫不存在"
Start.Timer1.Enabled = False
MsgBox "qb45@pchome.com.tw" & "　" & s1 & " " & s2 & "　" & s3, vbOKOnly, "通知管理員"
Start.List1.Height = "960"
Start.Command1.Visible = True
Exit Sub
End If
If s3 = 0 Then
Start.List1.Clear
Start.List1.AddItem "業務員資料庫不存在"
Start.Timer1.Enabled = False
Else
If s2 = 0 Then '會員
Start.List1.Clear
Start.List1.AddItem "會員資料庫不存在"
Start.Timer1.Enabled = False
End If
End If
If s1 = 0 Or s2 = 0 Or s3 = 0 Then
MsgBox "qb45@pchome.com.tw" & "　" & s1 & " " & s2 & "　" & s3, vbOKOnly, "通知管理員"
Start.List1.Height = "960"
Start.Command1.Visible = True
Else
Start.List1.Height = "960"
Start.Command2.Visible = True
End If
End Sub

為何執行的結果是錯的....???
謝謝