How to clear contents of text file

[Hack]

One thing you missed that is kind of important

Private Sub Command2_Click()
On Error GoTo cancelthis
  CommonDialog1.CancelError = True
  CommonDialog1.ShowOpen
  file$ = CommonDialog1.FileTitle
  Text2.text = ""
  Open file$ For Input As #1
  While Not EOF(1)
      Input #1, a$

      Text2.text = Text2.text + a$ + Chr$(13) + Chr(10)

Wend
Close #1
Exit Sub
cancelthis:

End Sub