im having trouble with writing a bit of coding. i want to regista votes for one of five radio programmes into one cell and display the radio program numbers. all of these data needs to be held in an array. i also want to keep a current running score for each of the radio programmes. the following coding is what i have done so far if anyone can help i would be so greatfull

Private Sub Submit_Click()
Dim radioProgramName(5) As String
Dim currentScore As Integer
Dim totalCurrentScoreradioProgramName() As String
Dim submitScore As Integer
radioProgrameName1(talk,sport)
radioProgrameName2(talk garden)
radioProgrameName3(talk DIY)
radioProgrameName4(talk talk)
radioProgrameName5(talk weather)
'radioProgrameNumber1 (54), radioProgrameNumber2(98), radioProgrameNumber3(45), radioProgrameNumber4(63), radioProgrameNumber5(30)
'submitScore = Range("f12").Value
'Range("d12").Value = submitScore
'totalCurrentScoreRadioProgramName() = Range("d12").Select
'the below adds one to the corisponding cell each time a number is entered into the cell f12
Range("f12").Value = Range("d12").Value
Range("d12").Value = Range("d12").Value + 1
'then delete the number thats in the input cell
Range("f12").Value = Range("d13").Value
Range("d13").Value = Range("d13").Value + 1
End Sub