🚀 go-pugleaf

Ok, this is what I have so far... I'd like to, at the end, let them "Browse" for a directory to save the file in. 

How would I do that? We never got to that :) 

This is on a new project, with one button. 

Dim myFName, myLName, myDegree, myFullName, myTitle, myDivision, mySchool, myDept, mySect, myPhone, myFax, myPager, myAddress, myCity, myState, myWeb, myEmail, Filename As String 

Private Sub Command1_Click() 
Rem Business card datafile generator 

myFName = InputBox("Enter a Name:", "Name", "Vincent") 
myLName = InputBox("Enter a Name:", "Name", "Macaluso") 
myDegree = InputBox("Enter a Name:", "Name", "MD") 
myFullName = myFName & " " & myLName & ", " & myDegree 

myTitle = InputBox("Enter a Title:", "Title", "Graphic Designer") 

myDivision = InputBox("Enter a Division:", "Division", "NEW ORLEANS") 
mySchool = InputBox("Enter a School or Hospital:", "School or Hospital", "School of") 
myDept = InputBox("Enter your Department:", "Department", "Department of") 
mySect = InputBox("Enter Section:", "Section", "Section of") 

myPhone = InputBox("Enter your Telephone Number:", "Phone", "(206) 555-1111") 
myFax = InputBox("Enter your Fax Number:", "Fax", "(206) 555-2222") 
myPager = InputBox("Enter your Pager Number:", "Pager", "(206) 555-3333") 

myAddress = InputBox("Enter a Street Address:", "Address", "1542 Tulane Avenue, Room 109-E") 
myCity = InputBox("Enter a City:", "City", "New Orleans") 
myState = InputBox("Enter a State:", "State", "LA") 

myWeb = InputBox("Enter a LSUHSC Web address:", "Web", "www.lsuhsc.edu") 
myEmail = InputBox("Enter a e-mail address:", "E-Mail", "@lsuhsc.edu") 

Filename = "c:\" & myLName & "-" & myFName & ".txt" 

test = InputBox("Blah", "blah blah", Filename) 

Open Filename For Output As #1 
Write #1, myFullName, myTitle, myDivision, mySchool, myDept, mySect, myPhone, myFax, myPager, myAddress, myCity, myState, myWeb, myEmail 
Close #1 
End Sub