Private Sub Command1_Click()
    Dim nFile as Long
    'get the next freefile number
    nFile = FreeFile
    'open the file for reading
    Open "c:\tempText.txt" For Input As #nFile
    
    'read the entire file into the text box
    Text1.Text = Input$(LOF(nFile), #nFile)    
    
    'close the file
    Close #nFile
End Sub