VBA: 文字列を半角へ変換して、全角を取り除く

▼期待値
?getRemoveKanji$("順子（じゅん）は猫よりも犬が好き１２３鬼ｵﾆｸ")
(ｼﾞｭﾝ)ﾊﾖﾘﾓｶﾞｷ123ｵﾆｸ


'文字列を半角へ変換して、全角を取り除く
Public Function getRemoveKanji$(strOrg$)

    Dim i%, out$, w$
    Dim strLen%: strLen% = Len(strOrg$)
    
    For i = 1 To strLen%
        
        w$ = Mid(strOrg$, i, 1)         '1文字取り出す
        w$ = StrConv(w$, vbKatakana)    '全角カナを半角カナへ
        w$ = StrConv(w$, vbNarrow)      '全角を半角へ
        
        If Not w$ Like "[亜-熙一-龠々]" Then
            out$ = out$ & w$
        End If
    Next
    getRemoveKanji$ = out$
End Function