Dim currentpath As String = _
          System.Environment.CurrentDirectory.ToString()
 
        Dim pathto As String
        MainForm = Me
        currentpath = currentpath & "\" & DATEINAME
        erroroutput("Now checking for file exist. Currentpath:" & currentpath & _
          vbCrLf)
        If System.IO.File.Exists(currentpath) = False Then
            erroroutput("The currentpath file dont exist, i am now loading the" & _
              "form" & vbCrLf)
            Dim form1 As New Form2
            'form.Activate()
            Try
                form1.ShowDialog()
                erroroutput("The settings form is loaded and closed" & _
                  "successfully" & vbCrLf)
            Catch
                erroroutput("Konnte settings Dialog nicht oeffnen!" & vbCrLf)
                Exit Sub
            End Try
            erroroutput("Now writing the file from the Settings Dialog into the" & _
              "settings file!" & vbCrLf)
            Try
                putpath(currentpath)
            Catch
                erroroutput("Error: Could not write Settings File" & vbCrLf)
                Exit Sub
            End Try
        End If