高一信息技术我自己写了个，就是输入小明结果男，输入小红结果女。可调试没有反应。我是哪里错了

都不是的话显示小仙女，帮忙看下哪里错了- -新手。。。

Private Sub Command1_Click()

Dim name As String

Dim resule As String

result = Val(Text1.Text)

If name = "小明" Then

Text1.Text = "男"

ElseIf name = "小红" Then

Text1.Text = "女"

test1.Text = "小仙女、"

End If

End Sub