Dim myArr(3) As String
myArr(0) = 1.Text
myArr(1) = 2.Text
myArr(2) = 3.Text
myArr(3) = 4.Text

Dim testDist As String = myArr.Distinct().ToString
           For Each NOW As String In testDist
                Dim labelShow As String = String.Join(",", NOW)
                Label7.Text = labelShow
            Next