Private Sub cmdSaldo_Click()    
Dim fp As Integer
Dim temp As String
      fp = FreeFile
   Open App.Path & "\Saldo.txt" For Append As #fp
   Print #fp, Me.Text6.Text & " Gleitzeitsaldo" & " am " & Date
      Close (fp)
     MsgBox "Ihre Eingaben wurden gespeichert.", vbInformation, "Speichern des" & _
       "Tagessaldos"
End Sub

Private Sub cmdSaldoGes_Click() 
frmWSaldo.Show
Open App.Path & "\Saldo.txt" For Input As #1
frmWSaldo.Text7.Text = Input(LOF(1), 1)
Close #1
End Sub

Private Sub cmdSal_Click()
Call ShellExecute(Me.hwnd, "Open", "Saldo.txt", "", _
                   "C:\Saldo.txt", 1)

Private Sub cmdSaldo_Click()