How do I reverse individual words in a string in VBA?

Question

I\'ve managed to reverse the string as a whole using the code below:

Dim str As Variant
Dim i As Integer, strLen As Integer
Dim NewStr As String


str = "VBA