Build Array from String, Count Each Element Index

myStr = "this sentence is just fine"

msg = Split(myStr)

numStr = UBound(msg) + 1

MsgBox numStr

'For Each word In msg
' MsgBox word
' If word = "is" Then
' MsgBox msg(word)
' End If
'Next


For x = LBound(msg) To UBound(msg)
MsgBox msg(x) & " " & x
If x <> UBound(msg) Then
MsgBox msg(x+1)
End If
Next