VB Code:
  1. Private Sub Command1_Click()

  2.  
  3.     Dim sText As String

  4.  
  5.     Open "C:\MyTextFile.txt" For Input As #1

  6.         sText = Input(LOF(1), 1)

  7.     Close #1

  8.  
  9.     sText = Replace(sText, Chr$(32), vbNullString)

  10.  
  11. End Sub