从数组中移除空值并复制到新数组

我正在将一行文本拆分为一个数组,然后尝试将其放入一个没有空空格的新数组。出于某种原因,它不会从旧数组复制到新数组中。顺便说一句,如果有人有更有效的方法来做这件事,我也愿意。

Dim x As Variant, i As Integer, m As String, rdate As String, k(0 To 50) As Variant, j As Integer
rdate = ThisWorkbook.Sheets("sheet1").Range("a58").Value
j = 0
x = Split(rdate, "  ")

For i = 0 To UBound(x)
    If x(i) <> "" Then
        k(j) = x(i)
        j = j + 1
        m = m & j & k(j) & vbCrLf
    End If
Next
MsgBox m