ecco il codice

codice:
Private Sub APRI_Click()
Select Case "APRI"
Case Is = "APRI"
CommonDialog1.Filter = "text files| *.bat"
CommonDialog1.ShowOpen
Text1 = CommonDialog1.Filename
Open CommonDialog1.FileName For Input as #1
Text1.Text = Input (LOF(1), #1)
Close #1
Text1.Text = Len(Text1.Text)
End Select
End Sub