Membuka File dengan metode Input

Private Sub cmdOpen_Click()
Dim FileName As String
FileName = "C:\boot.ini"
F = FreeFile
Open FileName For Input As #F
Text1.Text = Input$(LOF(F), F)
Close #F
End Sub