visual-studio-2013 - FilePut は、タイプ 'System.ArgumentException' の未処理の例外を返します

Question

Visual Studio 2013 の Visual Basic で書いています。

モジュールで Customer レコード構造を定義しました。固定長レコードに保存しようとしています。ただし、保存しようとすると、FilePut が強調表示され、次のエラー メッセージが表示されます。

「タイプ 'System.ArgumentException' の未処理の例外が Microsoft.VisualBasic.dll で発生しました」.

サブルーチンの私のコードは次のとおりです。

    'Open customer file to find what ID to use
    FileOpen("1", "CustomerRecord.dat", OpenMode.Random, OpenAccess.ReadWrite)

    'Find length of customer file
    Dim RecordLength As Integer = Len(Customer)

    'Populate customer ID with algorithm to find unique ID to use (Last ID used + 1)
    txt_CustomerID.Text = Str(LOF(1) / RecordLength + 1)

    'Find record number to write
    Dim RecordToWrite As Integer = (LOF(1) / RecordLength + 1)

    'Populate all the customer variables with the corresponding
    'textbox information
    Customer.CusID = Int(txt_CustomerID.Text)
    Customer.Title = cmb_Title.Text
    Customer.Forename = txt_Forename.Text
    Customer.Surname = txt_Surname.Text
    Customer.Postcode = txt_Postcode.Text
    Customer.NameNo = txt_HouseName.Text
    Customer.Town = txt_Town.Text
    Customer.DOB = txt_DOB.Text
    Customer.TelNo = txt_TelNo.Text
    Customer.Email = txt_Email.Text

    FilePut("1", Customer, RecordToWrite)

    FileClose(1)

どうすればこの問題を解決できますか?