VB编程实例-根据条件弹出消息框

Private Sub Command1_Click()
Dim a As String
a = Text1.Text
If a = "我爱你" Then
MsgBox "您输入了我爱你！"
ElseIf a <> "我爱你" Then
MsgBox "你输入的不是我爱你！"
End If
End Sub

Private Sub Command1_Click()
Dim a As String
a = Text1.Text
If a = "我爱你" Then
MsgBox "您输入了我爱你！"
Else
MsgBox "你输入的不是我爱你！"
End If
End Sub