Opening a text file from common dialog with a Text box.

[Chin311]

Could someone tell me why I get
'Variable Required - cant assign to this expression'
when I try to use this code from a command button.

Private Sub Command1_Click()
With CommonDialog
.ShowOpen
.Filter = "Text File|*.txt|"
End With
Open CommonDialog.filename For Input As #1
Do Until EOF(1) = True
Get #1, , Text1
Loop
Close #1
End Sub

?????