Private Sub CommandButton1_Click()
'load

 def_loaded = False

 Dim fs
 Dim oFile
 Dim a As Long
 Dim tmp() As String
 Dim Mydata As String
 
 Dim Filelist As Variant
 
 Filelist = Application.GetOpenFilename("Text files (*.txt), *.txt", 0, "Import", , True)
 If IsArray(Filelist) = False Then
  response = MsgBox("No file selected", vbOKOnly)
  Exit Sub
 End If

  Open Filelist(1) For Binary As #1
   Mydata = Space$(LOF(1))
   Get #1, , Mydata
  Close #1
  tmp() = Split(Mydata, ",")
  For a = 0 To UBound(tmp)
   prn_def(a) = tmp(a)
  Next a
  
  If UBound(tmp) = 11 Then
   def_loaded = True
  
   'prog$ = prn_def(0)
   flh = prn_def(1)
   ew = prn_def(2)
   fd = prn_def(3)
   x1 = prn_def(4)
   Aroad_scaler = prn_def(5)
   nlle(1, 2) = prn_def(6)
   nlle(1, 1) = prn_def(7)
   nlle(2, 2) = prn_def(8)
   nlle(2, 1) = prn_def(9)
   nlle(3, 2) = prn_def(10)
   nlle(3, 1) = prn_def(11)
  
   With UserForm1
    .TextBox7.value = prn_def(1)
    .TextBox8.value = prn_def(2)
    .TextBox9.value = prn_def(3)
    .TextBox10.value = prn_def(4)
    .TextBox11.value = prn_def(5)
    .TextBox1.value = prn_def(6)
    .TextBox2.value = prn_def(7)
    .TextBox3.value = prn_def(8)
    .TextBox4.value = prn_def(9)
    .TextBox5.value = prn_def(10)
    .TextBox6.value = prn_def(11)
   End With
  
  End If
   
 UserForm2.Hide

End Sub

Private Sub CommandButton2_Click()
 'save
 
 Dim fs
 Dim oFile
 Dim filesavename
 Dim response As Variant

 filesavename = Application.GetSaveAsFilename(Filefilter:="Text Files (*.txt), *.txt")
 
 If filesavename = False Then
  response = MsgBox("No file selected", vbOKOnly)
  Exit Sub
 End If
 
  Set fs = CreateObject("Scripting.FileSystemObject")
  Set oFile = fs.CreateTextFile(filesavename, True)

  prn_def(0) = prog$
  prn_def(1) = flh
  prn_def(2) = ew
  prn_def(3) = fd
  prn_def(4) = x1
  prn_def(5) = Aroad_scaler
  prn_def(6) = nlle(1, 2)
  prn_def(7) = nlle(1, 1)
  prn_def(8) = nlle(2, 2)
  prn_def(9) = nlle(2, 1)
  prn_def(10) = nlle(3, 2)
  prn_def(11) = nlle(3, 1)
 
  For a = 0 To UBound(prn_def)
   tmp = tmp & prn_def(a) & ","
  Next a
  tmp = Mid$(tmp, 1, Len(tmp) - 1)
  
  oFile.Write tmp
 
  oFile.Close
 
 UserForm2.Hide

End Sub

Private Sub CommandButton3_Click()
 UserForm2.Hide
End Sub