String 字符串操作：在不接触数字的情况下反向输出字符串

我有一个字符串输入

"abc def 50 ghi jhk lmn 63 op qrst"

我需要在不接触数字的情况下反向输出这个字符串

"tsrq po 63 nml khj ihg 50 fed cba"

我创建了一个vb函数

function strWords(s,length)
    strWords = ""
    s = replace(s,")"," ( ")
    s = replace(s,"("," ) ")
    s = replace(s,"-","- ")
    s = replace(s," ( "," ( ")
    s = replace(s," ) "," ) ")
    dim sArray
    sArray = split(s)
    counter = 0
    for i = 0 to ubound(sArray)
        tempStr = sArray(i)
        counter = counter + len(tempStr)
        if len(tempStr) => 1 then
            if Asc(left(tempStr,1)) => Asc("0") and Asc(left(tempStr,1)) <= Asc("9") then
                strWords = tempStr & " " & strWords
            else
                strWords = StrReverse(tempStr) & " " & strWords
            end if
        end if
        if counter > 20 then 
            strWords =  "<br>" & strWords 
            counter = 0
        end if
    next
end function

函数strWords
t=“”
d=“”
对于i=Len（s）到1步骤-1
c=中部（s，i，1）
如果Asc（c）>=Asc（0）和Asc（c），则可以在末尾执行其余的格式化（添加中断和转义）。我还没有将这些添加到上面的代码中。。。
" 50 fed cba" 
"nml khj ihg " 
"tsrq po 63 "  

Function strWords(s)

    t = ""
    d = ""

    For i = Len(s) To 1 Step -1
        c = Mid(s, i, 1)
        If Asc(c) >= Asc(0) And Asc(c) <= Asc(9) Then
            d = c + d
        Else
            t = t + d + c
            d = ""
        End If
    Next

    strWords = t + d

End Function