How to create dynamic radio button events

[code]

Partial Class _Default
Inherits System.Web.UI.Page

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Dim i As Integer
For i = 0 To 56
Dim rd As New RadioButton
rd.ID = i
rd.Text = i
rd.AutoPostBack = True
rd.GroupName = "RD"
AddHandler rd.CheckedChanged, AddressOf RadioButton1_CheckedChanged



PlaceHolder1.Controls.Add(rd)
Next


End Sub

Protected Sub RadioButton1_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs)

MsgBox("asd")
End Sub
End Class

[/code]