need some help :)

sub changeDatDankLabel()
label1.text = ""
if radiobutton1.checked then
label1.text &= "<string/number to display here>"
else
label1.text &= "<string/number to display here>"
end if

if radiobutton3.checked then
label1.text &= "<string/number to display here>"
else
label1.text &= "<string/number to display here>"
end if
end sub

    Private Sub some_shizzle(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
        Label1.Text = String.Empty
        Dim booleans As Array = {RadioButton1.Checked, RadioButton2.Checked, RadioButton3.Checked} 'add more items for more radio buttons, and for quick add/remove runtime use an arraylist
        Dim i As UInt16 = 0
        For Each item In booleans
            If item Then
                Label1.Text = Label1.Text & i
            End If
            i = i + 1
        Next
    End Sub