I get an error when i click cancel on it.
VB Code:
  1. Private Sub Open_Click()

  2. Dim strText$

  3.     

  4.     With CommonDialog1

  5.         .Flags = cdlOFNExplorer

  6.         .Filter = "Html (*.html)|*.html"

  7.         .ShowOpen

  8.         Open .FileName For Input As #1

  9.             strText = Input(LOF(1), #1)

  10.             Text1.Text = strText

  11.         Close #1

  12.     End With

  13. End Sub