Private Sub Command1_Click()
Dim Text As String
Dim Nr As Integer
Dim Zeile() As String
Dim N As Long
 
Nr = FreeFile
 
Open "D:\Test.txt" For Binary As Nr
  Text = Space(LOF(Nr))
  Get Nr, , Text
Close Nr
 
Zeile = Split(Text, vbCrLf)
 
For N = 0 To UBound(Zeile)
  MsgBox Mid(Zeile(N), InStrRev(Zeile(N), " "))
Next
 
End Sub