Private Sub cmdLoad_Click()
Dim fnum As Integer
Dim i As Integer
Dim value As String

    ' Open the file.
    On Error GoTo LoadError
    fnum = FreeFile
    Open "animals.dat" For Input As fnum
    
    ' Write the values.
    For i = txtAnimal.lbound To txtAnimal.ubound
        Input #fnum, value
        txtAnimal(i).Text = value
    Next i
    
    ' Close the file.
    Close fnum
    Exit Sub
    
LoadError:
    MsgBox "Error" & Str$(Err.Number) & _
        " loading data." & vbCrLf & _
        Err.Description
End Sub

Private Sub cmdSave_Click()
Dim fnum As Integer
Dim i As Integer

    ' Open the file.
    On Error GoTo SaveError
    fnum = FreeFile
    Open "animals.dat" For Output As fnum
    
    ' Write the values.
    For i = txtAnimal.lbound To txtAnimal.ubound
        Write #fnum, txtAnimal(i).Text
    Next i
    
    ' Close the file.
    Close fnum
    Exit Sub
    
SaveError:
    MsgBox "Error" & Str$(Err.Number) & _
        " saving data." & vbCrLf & _
        Err.Description
End Sub

Private Sub cmdClear_Click()
Dim i As Integer

    For i = txtAnimal.lbound To txtAnimal.ubound
        txtAnimal(i).Text = ""
    Next i
End Sub

    "Ape"
    "Bear"
    "Cow"