Public Function ReduceSplitChar(ByVal strText As String, _
  ByVal splitChar As String) As String
  Dim helstring As String
  helpstring = ""
  'mehrere Trennzeichen hintereinander auf eins reduzieren
  Do While InStr(1, strText, splitChar) > 0
    helpstring = helpstring + left(strText, InStr(1, strText, splitChar))
    strText = Trim(Mid(strText, InStr(1, strText, splitChar) + 1))
  Loop
  helpstring = helpstring + strText
  ReduceSplitChar = helpstring
End Function

h_zeile = ReduceSplitChar(k_zeile, " ")
woerter = Split(h_zeile, " ")

Man sollte auch aus den Fehlern anderer lernen, denn kein Mensch hat so viel Zeit, sie alle selbst zu machen