Option Explicit
Const vmax = 25
Private Type TPerson
 englischevok As String
 deutschevok As String
End Type
Dim VokListe(1 To vmax) As TPerson
Dim pos%
 
 
Private Sub form_load()
 
Dim i%
 pos = 1
 For i = vmax To 1 Step -1
  With VokListe(i)
   .englischevok = ""
   .deutschevok = ""
  End With
 Next i
 Me.Show
 Call anzeigen
 
 
End Sub
 
 
Private Sub laden_Click()
 pos = 1
 
 Dim F As Integer
  Dim AllText As String
  Dim LineOfText As String
  On Error Resume Next
  With CommonDialog1
    .CancelError = True
    .Filter = "Textdateien (*.txt)|*.txt"
    .ShowOpen
    If .FileName <> "" Then
      F = FreeFile
      Open .FileName For Input As #F
      Do Until EOF(F)
        Line Input #F, LineOfText
        AllText = AllText & LineOfText & vbCrLf
      Loop
      Close #F
      Text1.Text = AllText
    End If
  End With
End Sub
 
 
Private Sub speichern2()
 
VokListe(pos).englischevok = englischevok.Text
 If deutschevok.Text <> "" Then VokListe(pos).deutschevok = Val(deutschevok.Text)
End Sub
 
Sub anzeigen()
 
 Text1.Text = pos
 englischevok.Text = VokListe(pos).englischevok
 deutschevok.Text = VokListe(pos).deutschevok
 
End Sub
 
Private Sub vor_Click()
 If pos < vmax Then Call speichern2: pos = pos + 1:  Call anzeigen
 
End Sub
 
Private Sub zurück_Click()
 If pos > 1 Then Call speichern2: pos = pos - 1:  Call anzeigen
 
End Sub