Private Sub cmdSchnitt_Click()
Dim pos1 As Integer, pos2 As Integer, i As Integer, Ergebnis As String, _
  TempText As String, Suchleer As Integer, Startpos As Integer, Endpos As _
  Integer
TempText = Text1.Text
If Stelle.Text <> "" And IsNumeric(Stelle.Text) = True And Stelle.Text > 1 Then
   Suchleer = Stelle.Text - 1
   i = 1
   Do
      pos1 = InStr(TempText, " ")
      TempText = Right(TempText, Len(TempText) - pos1)
      i = i + 1
      Startpos = Startpos + pos1
   Loop While i < Stelle.Text
   pos2 = InStr(TempText, " ")
   If pos2 = 0 Then
      pos2 = Len(Text1.Text)
      Endpos = pos2
   Else
      Endpos = Startpos + pos2 - 1
   End If
   Ergebnis = Mid(Text1.Text, Startpos + 1, Endpos - Startpos)
   Text2.Text = Ergebnis
ElseIf Stelle.Text = 1 Then
   pos1 = InStr(TempText, " ")
   Ergebnis = Left(Text1.Text, pos1 - 1)
   Text2.Text = Ergebnis
ElseIf Stelle.Text < 1 Then
   MsgBox "Falsche Stellenangabe"
   Exit Sub
Else
   MsgBox "allgemeiner Fehler"
   Exit Sub
End If
End Sub

Live and let die