Удалить все элементы символьного файла, расположенные после первого символа пробела

Sub Task(fname as string)
   fi%=FreeFile
   Open fname for Binary Access Read as #fi%
   ll&=Lof(fi%)
   Buf$=Space$(ll&)
   get #fi%,,Buf$
   Close #fi%
   Kill fname
   fo%=FreeFile
   Open fname for binary access write as #fo%
   k&=Instr(Buf$," ")
   Buf$=left$(Buf$,k&-1)
   Put #fo%,,Buf$
   Close #fo%
 End Sub

Call Task

Sub Main()
   fname$ = InputBox("Задайте имя файла в текущей директории")
   If fname$ <> "" Then
      fi% = FreeFile
      Open fname For Binary Access Read As #fi%
      ll& = LOF(fi%)
      Buf$ = Space$(ll&)
      Get #fi%, , Buf$
      Close #fi%
      Kill fname
      fo% = FreeFile
      Open fname For Binary Access Write As #fo%
      k& = InStr(Buf$, " ")
      Buf$ = Left$(Buf$, k& - 1)
      Put #fo%, , Buf$
      Close #fo%
      MsgBox "OK!"
   End If
End Sub

Option Explicit
 
Sub main()
    Dim fname As String, bArr() As Byte, pos As Long
    
    fname = InputBox("Задайте имя файла в текущей директории")
    'fname = "h:\_VBA\Файловая система, ф.операции, WMI\Работа с текстом\testfile.txt"
    
    With CreateObject("ADODB.Stream")
        .Type = 1 ' adTypeBinary
        .Open
        .LoadFromFile fname
        If .Size = 0 Then .Close: Exit Sub
        bArr() = .Read()
        For pos = 0 To UBound(bArr)
            If bArr(pos) = 32 Then Exit For
        Next
        Dim Stream2 As Object: Set Stream2 = CreateObject("ADODB.Stream")
        Stream2.Open
        Stream2.Type = 1
        .Position = 0
        .CopyTo Stream2, pos 'считая от нуля
        .Close
    End With
    Stream2.SaveToFile fname, 2 'adSaveCreateOverWrite
    Stream2.Flush
    Stream2.Close
    Set Stream2 = Nothing
End Sub

Option Explicit
 
Private Sub Form_Load()
    Dim fNum As Integer, Txt As String
    fNum = FreeFile
    Open "D:\Temp\Text.txt" For Input As fNum
    Txt = Input(LOF(fNum), fNum)
    Txt = Left$(Txt, InStr(1, Txt, Chr$(32)) - 1)
    Close fNum
    Open "D:\Temp\Text.txt" For Output As fNum
    Print #fNum, Txt
    Close fNum
End Sub