Public Sub Rechnen(ByVal Text As String, ByVal Ergebnis As Double, ByRef _
  ErgebnisR As Double, ByRef ErgebnisF As Double)
 
        Dim Mathe As Double
 
 
        Mathe = InputBox(Text)
 
        If Mathe = Ergebnis Then
            ErgebnisR = ErgebnisR + 1
        Else : ErgebnisF = ErgebnisF + 1
        End If
 
 
    End Sub
    Private Function BauePfadDateiname() As String
        Dim strPfad As String  'Oder Global, wenns in ein Modul kommt
 
 
        strPfad = Application.StartupPath
 
        Const cAufgabendatei As String = "Aufgaben.txt"
 
 
        strPfad = Application.StartupPath
 
        If MyRight(strPfad, 1) <> "\" Then strPfad = strPfad & "\"
        BauePfadDateiname = strPfad & cAufgabendatei
 
 
    End Function
    Private Function BauePfadDateiname2() As String
 
        Const cAufgabendatei2 As String = "Antworten2.txt"
 
        Dim strPfad As String  'Oder Global, wenns in ein Modul kommt
 
 
        strPfad = Application.StartupPath
 
        strPfad = Application.StartupPath         
 
        If MyRight(strPfad, 1) <> "\" Then strPfad = strPfad & "\"
        BauePfadDateiname2 = strPfad & cAufgabendatei2
 
    End Function
    Public Function MyRight(ByVal sText As String, _
  ByVal nLen As Integer) As String
 
        If nLen > sText.Length Then nLen = sText.Length
        Return (sText.Substring(sText.Length - nLen))
    End Function
 
 
    Public Function ReadLine(ByVal Aufgabendatei As String, _
ByVal line As Integer) As String
 
 
        Try
            Dim lines As String() = My.Computer.FileSystem.ReadAllText( _
              Aufgabendatei, System.Text.Encoding.Default).Split(vbCrLf)
 
            If line > 0 Then
 
 
                ' n-te Zeile vom Anfang der Textdatei
                Return lines(line - 1)
            ElseIf line < 0 Then
                ' n-te Zeile beginnend am Ende der Textdatei
                Return lines(lines.Length + line - 1)
            Else
                ' ungültige Zeilennummer
                Return ""
            End If
        Catch ex As Exception
            Return ""
        End Try
    End Function