Posts by lolafuertes

May be you can try

Private Sub btnDS_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDS.Click
        lNumbers.Sort()
        Dim MessageToShow as String
        For I as Integer = 0 to lNumbers.Count
            MessageToShow &= "Score " & (I + 1).Tostring & ": " & lNumbers.Item(I).Tostring & ControlChars.CrLf
        Next
        MessageToShow &= ControlChars.CrLf & "Total: " & totalScore.ToString & ControlChars.CrLf
        MessageToShow &= "Average: " & averageScore.ToString
        MessageBox.Show(MessageToshow)
    End Sub

Hope this helps