Sub ss()
Dim arr
arr = Array("1f", "2f", "3f", "4f", "5f", "6f", "7f", "8f", "9f", "10f" & _
"11f", "12f", "13f", "14f", "15f", "16f", "17f", "18f", "19f", "20f", "21f", "22f", "23f", "24f", "25f", "26f", "27f", "28f", "29f", "30f", "31f", "32f", "33f", "34f", "35f")
For i = 0 To UBound(arr)
MsgBox arr(i)
Next
End Sub
Dim arr
arr = Array("1f", "2f", "3f", "4f", "5f", "6f", "7f", "8f", "9f", "10f" & _
"11f", "12f", "13f", "14f", "15f", "16f", "17f", "18f", "19f", "20f", "21f", "22f", "23f", "24f", "25f", "26f", "27f", "28f", "29f", "30f", "31f", "32f", "33f", "34f", "35f")
For i = 0 To UBound(arr)
MsgBox arr(i)
Next
End Sub