thank you, guys! I tried to use Value property of TextBox1, and
mistakenly referenced the function.

thanks,
DD

Bob Flanagan wrote:
Dirk, you can do it like the following;

Private Sub CommandButton1_Click()
Dim sFile As String

sFile = Application.GetOpenFilename(FileFilter:= _
"TXT Files (*.txt), *.txt", FilterIndex:=1, _
Title:="Choose TXT File...")
If sFile < "False" Then
Me.TextBox1.Text = sFile
End If
End Sub