求助！！asp.net这个代码哪里出错了？

[xiangxinnihuicunzai]

Imports System.IO
Partial Class _Default
Inherits System.Web.UI.Page

Protected Sub Button1_ServerClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.ServerClick
Dim strMessage As String
strMessage = "姓名：" & Text1.Value
strMessage = "密码：" & Password1.Value
If Radio1.Checked = "True" Then
strMessage = strMessage & "<br>性别：" & Radio1.Value
ElseIf Radio2.Checked = "True" Then
strMessage = strMessage & "<br>性别：" & Radio2.Value
End If
If Checkbox1.Checked = "Ture" Then
strMessage = strMessage & "<br>爱好1：" & Checkbox1.Value
End If
If Checkbox2.Checked = "Ture" Then
strMessage = strMessage & "<br>爱好2：" & Checkbox2.Value
End If
If Checkbox3.Checked = "Ture" Then
strMessage = strMessage & "<br>爱好3：" & Checkbox3.Value
End If
strMessage = strMessage & "<br>职业：" & Select1.Value
strMessage = strMessage & "<br>简介：" & TextArea1.Value
message.InnerHtml = strMessage
End Sub
End Class

[victorytangtang]

不会VB。NET

[wuyq11]

strMessage += If(Checkbox3.Checked, "<br>爱好3：" & Checkbox3.Value, "")
strMessage += "<br>职业：" & Select1.Value
strMessage += "<br>简介：" & TextArea1.Value
单步跟踪看看数据

[马老虎]

[Quote=引用 2 楼 wuyq11 的回复:]

strMessage += If(Checkbox3.Checked, "<br>爱好3：" & Checkbox3.Value, "")
strMessage += "<br>职业：" & Select1.Value
strMessage += "<br>简介：" & TextArea1.Value
单步跟踪看看数据
[/Quote]
果然是高手！！

[FiredFish]

不会 vb