我是希望当a45这个单元格等于0时，才可以保存，不等于0时提示保存失败，但是判断条件好像不对，请各位大佬帮忙修改一下，谢谢啦

Private Sub 保存_Click()
Dim a
Sheet = 1
fpSpread1.Row = 45
fpSpread1.Col = 1
fpSpread1.CellType = Number
a = fpSpread1.Text
If a = 0 Then
MsgBox "保存成功"
If a <> 0 Then
MsgBox "保存失败"
End If
End If
End Sub