【VBA】文字列をカンマ区切りで配列に変換

Sub aaa()
    myRange = Range("A1", "A2")
    arr = WorksheetFunction.Transpose(myRange)
    For i = 1 To UBound(arr)
        '''
        spli = Split(arr(i), ",")
        Data = "0x06, 0x46, 0x05, 0x22, 0x03, "
        s = Data
        For c = 0 To UBound(spli)
            s = Replace(s, (spli(c) + ","), "")  '"[値],"を削除
            s = Replace(s, "  ", " ") '"  "(半角スペースが2つ)なら1つに変換
            If InStr(s, " ") = 1 Then s = Right(s, Len(s) - 1) '先頭が" "(半角スペース)なら削除
        Next
        If InStrRev(s, " ") - Len(s) = 0 Then s = Left(s, Len(s) - 1) '末尾が","(カンマ)なら削除
        If InStrRev(s, ",") - Len(s) = 0 Then s = Left(s, Len(s) - 1) '末尾が" "(半角スペース)なら削除
        Debug.Print (s)
        '''
    Next
End Sub

参考
http://officetanaka.net/excel/vba/tips/tips62.htm
https://kosapi.com/post-2305/