If Len(Str) > 3 And Len(Dir(Str, vbArchive)) Then

Dim N          As Integer
Dim I          As String
Dim Partes()   As String

I = "1000000CARMEN ROSA ALVAREZ          10         0       46600       020100830"

Do While InStr(I, "  ")      ' mientras haya mas de dos espacios
I = Replace$(I, "  ", " ")  ' los eliminamos
Loop

MsgBox I                       ' mostramos la cadena ya sin dobles espacios

Partes() = Split(I, " ")     ' la partimos por un espacio

For N = UBound(Partes()) To 1 Step -1 
 MsgBox Partes(N)                              ' mostramos todas las partes
Next

Public Function SquareNumber(NumberLineToPrint As Long) As Long()
Dim MArray()             As Long
Dim Z                    As Long
Dim N                    As Long
Dim C                    As Long
Dim Aux()                As Long

ReDim MArray(NumberLineToPrint)
ReDim Aux(NumberLineToPrint - 1, NumberLineToPrint - 1)

For Z = 0 To NumberLineToPrint - 1
  For N = 0 To NumberLineToPrint - Z - 1
     C = C + 1
     Aux(Z, N) = C
    Next N
   For N = Z To 1 Step -1
       MArray(N - 1) = MArray(N - 1) + 1
       Aux(Z, NumberLineToPrint - N) = MArray(N - 1)
     Next N
    MArray(Z) = C
   C = C + NumberLineToPrint - Z - 1
   DoEvents
Next Z
SquareNumber = Aux
End Function

001 002 003 004 005 006 007 008 009 010 011 012 013 014 015 016 017 018 019 020 
040 041 042 043 044 045 046 047 048 049 050 051 052 053 054 055 056 057 058 021 
077 078 079 080 081 082 083 084 085 086 087 088 089 090 091 092 093 094 059 022 
112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 095 060 023 
145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 129 096 061 024 
176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 161 130 097 062 025 
205 206 207 208 209 210 211 212 213 214 215 216 217 218 191 162 131 098 063 026 
232 233 234 235 236 237 238 239 240 241 242 243 244 219 192 163 132 099 064 027 
257 258 259 260 261 262 263 264 265 266 267 268 245 220 193 164 133 100 065 028 
280 281 282 283 284 285 286 287 288 289 290 269 246 221 194 165 134 101 066 029 
301 302 303 304 305 306 307 308 309 310 291 270 247 222 195 166 135 102 067 030 
320 321 322 323 324 325 326 327 328 311 292 271 248 223 196 167 136 103 068 031 
337 338 339 340 341 342 343 344 329 312 293 272 249 224 197 168 137 104 069 032 
352 353 354 355 356 357 358 345 330 313 294 273 250 225 198 169 138 105 070 033 
365 366 367 368 369 370 359 346 331 314 295 274 251 226 199 170 139 106 071 034 
376 377 378 379 380 371 360 347 332 315 296 275 252 227 200 171 140 107 072 035 
385 386 387 388 381 372 361 348 333 316 297 276 253 228 201 172 141 108 073 036 
392 393 394 389 382 373 362 349 334 317 298 277 254 229 202 173 142 109 074 037 
397 398 395 390 383 374 363 350 335 318 299 278 255 230 203 174 143 110 075 038 
400 399 396 391 384 375 364 351 336 319 300 279 256 231 204 175 144 111 076 039