关于VB一段代码的有关问题

关于VB一段代码的问题
Private Sub Command1_Click()
Dim strArr() As String, strSubLine() As String, strLine() As String
Dim i As Long, j As Long, k As Long, p As Long, n As Long
Dim isChinese As Boolean

Dim strSource As String

strSource = "我经常逛CSDN论坛，这里有很多experiened man。"

ReDim strArr(Len(strSource) - 1)

strLine = Split(strSource, "¡£")

For i = 0 To UBound(strLine)
    strSubLine = Split(strLine(i), "£¬")
    For j = 0 To UBound(strSubLine)
        p = 1
        For k = 1 To Len(strSubLine(j))
            If k = 1 Then
                isChinese = (Asc(Mid(strSubLine(j), 1, 1)) < 0)
            Else
                If (Asc(Mid(strSubLine(j), k, 1)) > 0 And isChinese) Or (Asc(Mid(strSubLine(j), k, 1)) < 0 And Not isChinese) Then
                    isChinese = Not isChinese
                    strArr(n) = Mid(strSubLine(j), p, k - p)
                    n = n + 1
                    p = k
                End If
            End If
        Next k
            
        strArr(n) = Mid(strSubLine(j), p, k - p)
        n = n + 1
    Next j
Next i

ReDim Preserve strArr(n - 1)

For i = 0 To n - 1
    Debug.Print strArr(i)
Next i
End Sub
这个是咱们CSDN以为好心的大神给我的代码，现在我有个问题哎。"¡£" "£¬"这两个表达的是什么意思啊？而且我的电脑上也打不出来。出来就是“？£”“£？”.小白一个求好心人指导一下！
------解决方案--------------------

Dim iBuf() As Byte

Dim bytesTotal As Long

Dim i As Long