texbox1.Text = H.Split(" ").First 

 un ejemplo espacio hola como estas que me salga "hola" 

lblprimerpalabra=textbox.text.split(" ").first

"Hola     Juan" (Hay 5 espacios)
"Hola","","","","","","Juan" Entonces hay habrian 2 palabras y descontaría cada "" que encuentre.

Dim f As Integer
 
        For Each Palabra As String In txtOración.Text.Split(" ")
            If Not Palabra = "" Then
                f= f + 1
            End If
        Next
        lblCantPalabras.Text = Z

Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim palabras As String
 
        palabras = "    HOla mundo *****"
 
        For Each palabra As String In palabras.Split(" ")
 
            If Not String.Compare(palabra, " ") Then
                MessageBox.Show(palabra)
                Exit For
            End If
        Next
 
    End Sub
End Class