VBA 消除字串全部的空白

Reference:
HOWTO：使用 Split 函式將區隔的字串放入字串陣列中

Function remove_space(str_in As String) As String
    Dim tmp_array() As String
    rst_str = ""
    tmp_array() = Split(str_in)
    For i = LBound(tmp_array) To UBound(tmp_array)
        rst_str = rst_str & tmp_array(i)
    Next
    remove_space = rst_str
End Function