Visual Basic.NET - Extraer datos variable

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

    Dim valor As String = "Kilos_Patatas 75kls Kilos_Cebollas 25kls Kilos_Platanos 80kls"

    Dim Separador As Char() = {" "}

    Dim Datos() As String

    Datos = valor.Split(Separador)

    For i As Integer = 0 To Datos.Count - 1

        If Datos(i).Substring(0, 1) >= "0"c And Datos(i).Substring(0, 1) <= "9"c Then

            MessageBox.Show("Encontrado " & Datos(i))

        End If

    Next

End Sub

Dim valor As String = "Kilos_Patatas 75kls Kilos_Cebollas 25kls Kilos_Platanos 80kls Empresa_1 Mariano Fecha Hoy"

Dim Separador As Char() = {" "}

Dim Datos() As String

Datos = valor.Split(Separador)

    Dim i As Integer = 0

    While i < Datos.Count

        MessageBox.Show("Encontrado " & Datos(i) & " = " & Datos(i + 1))

        i += 2

    End While