Question: ```
uptime=$(uptime | sed 's/^.*up//;s/:/ hours and /; s/, load/ minutes, load/g')

```

The output is:

```
2 days, 3 hours and 41, load average: 0.04, 0.07, 0.10

```

I want the output to be like this:

```
2 days, 3 hours and 41 minutes, load average: 0.04, 0.07, 0.10

```

How do I do that with `sed` ?

Answer: 
```
Sub Tester()

    Dim labelCounter As Integer
    Dim arrayTag() As String
    Dim ct As String, ctl

    labelCounter = 0
    ReDim arrayTag(0 To labelCounter)
    For Each ctl In Me.Controls
        ct = TypeName(ctl)
        If ct = "Label" Then
            If labelCounter > 0 Then
                ReDim Preserve arrayTag(0 To labelCounter)
            End If
            arrayTag(labelCounter) = ctl.Tag
            labelCounter = labelCounter + 1
        End If
    Next
    'Debug.Print Join(arrayTag, ",")
End Sub

```
I think your only issue is you created an array (arrayTag) without specifying how many elements are in it. As far as I recall, when creating an array you need to either A.) Specify the number of elements in it, or B.) Create an array the way you did (With empty parenthesis) and then `ReDim` it once you reach a point in the code execution where you know how many elements are in it. I think you can also `ReDim Preserve` to change the size of the array without deleting its contents. 

```
Dim labelCounter As Integer
labelCounter = 0
Dim arrayTag(50) As String

For Each ctl In Me.Controls
    Select Case TypeName(ctl)
        Case "Label"
        arrayTag(labelCounter) = ctl.Tag
        labelCounter = labelCounter + 1
    End Select
Next

```