get the first 6 value from my string var SCHEDINA

i just have a possible myvar similar:


SCHEDINA="5 21 48 74 77 88 32"
SCHEDINA="5 21 29 74 77 88 32"
SCHEDINA="42 43 44 45 46 47"
SCHEDINA="4 6 8 10 12 14"

Code:

---

Dim schedina As String
Dim values() As String
schedina = "5 21 48 74 77 88 32"
values = Split(schedina, " ")
Debug.Print "First value: " & values(0)
Debug.Print "Second value: " & values(1)
Debug.Print "Third value: " & values(2)
Debug.Print "Fourth value: " & values(3)
Debug.Print "Fifth value: " & values(4)
Debug.Print "Sixth value: " & values(5)

---

Did I lose the capability to use code-tags (from buttons)? I don't see them anywhere

I switched to MS Edge, and i now have the icons...gotta figure out why the Google Browser no longer shows them for me....

Cleared Cache and now I have the icons back...whew!

Code:

---

Private Sub Form_Load()
    Dim SCHEDINA As String
    Dim arr() As String

    SCHEDINA = "5 21 48 74 77 88 32"

    arr = Split(SCHEDINA, " ")
   
    'Get the first 6 numbers
    For i = 1 To 6
        Debug.Print arr(i - 1)
    Next
   

End Sub


---