vb แยก message คืนออกมาเป็น อะเรย์

Public Function CnvtArr(ByVal message As String, Delimiter as string ) As Integer
    Dim TempArr() As String
    Dim ReturnArr() As Integer
    Dim r As Long, i As Long
    TempArr() = Split(message, Delimiter)
    i = 0
    ReDim ReturnArr(UBound(TempArr()))
    For r = 0 To UBound(TempArr())
        Debug.Print TempArr(r)
        i = Len(TempArr(r))
        ReturnArr(r) = i
    Next r
    CnvtArr = ReturnArr()
End Function


ถ้าต้องการให้คืนค่าออกเป็นอะเรย์ ผมจะต้องแก้ไขบรรทัดแรกอย่างไรครับ