need help for saving the forms

[ybhag]

I nedd to how to write a code that when Name that then select which ledger that it will be saved, so that next time I run the frmLedger1.caption remain the same

Private Sub create_Click()
Dim num As Integer
Dim CustomerName As String
Dim prstName As String
Dim prstCustomerName As String
 
Open "C:\CustomerName.txt" For Append As #1
Write #1, Text1
Close #1
 
cboDirectory.Filter = "Project files(*.frm)|*.frm"
cboDirectory.Filter = 1
cboDirectory.InitDir = "c:\"
prstName = Text2
cboDirectory.FileName = Text2
'cboDirectory.ShowSave
 
 
 num = InputBox("Enter the number of the file, you want to create ")
If num = 1 Then
frmleger1.Caption = Text1