Dividir una cadena en VB.NET

Estoy tratando de dividir lo siguiente en dos cadenas.

"SERVER1.DOMAIN.COM Running"

Para esto uso el código.

Dim Str As String = "SERVER1.DOMAIN.COM Running"
Dim strarr() As String
strarr = Str.Split(" ")
For Each s As String In strarr
    MsgBox(s)
Next

Esto funciona bien, y me sale dos cuadros de mensaje con"SERVER1.DOMAIN.COM" y"Running".

El problema que tengo es que algunas de mis cadenas iniciales tienen más de un espacio.

"SERVER1.DOMAIN.COM        Off"

Hay aproximadamente ocho espacios entre ".COM" y "Desactivado".

¿Cómo puedo separar esta cadena de la misma manera?

Respuestas a la pregunta(3)

Su respuesta a la pregunta