Option Explicit

Private Sub Form_Load()
Dim strTest(1 To 5) As String
Dim i As Integer

For i = 1 To 5
strTest(i) = "Värde " & i
Next i

Label1.Caption = Join(strTest, ", ")
End Sub