Save/Open String Ascii Codes

[Salchester]

Hi Everyone,

How can the following functions be edited inorder to save the ascii values of a string within a textbox called "textbox1", and then open it again?

Private Sub mnuOpen_Click()
  CD.DialogTitle = "Open Weight Board"
  CD.ShowOpen
  filename = CD.filename
  If CD.filename <> "" Then
    Open filename For Random As #1 Len = Len(record(1))
      numberofrecords = LOF(1) / Len(record(1))
      ReDim Preserve record(numberofrecords + 1)
      For row = 1 To numberofrecords
        Get #1, row, record(row)
          cboWeather.Text = record(row).weather
          lvwBoard.ListItems.Add , , lvwBoard.ListItems.Count + 1
          lvwBoard.ListItems(row).SubItems(1) = RTrim(record(row).name)
          lvwBoard.ListItems(row).SubItems(2) = RTrim(record(row).species)
          lvwBoard.ListItems(row).SubItems(3) = RTrim(record(row).sex)
      Next row

    Close #1
    row = row + 1
  End If
End Sub

Private Sub mnuSaveAs_Click()
  row = 0
  CD.DialogTitle = "Save Weight Board"
  CD.filename = Format(Date, "dd-mm-yyyy")
  CD.ShowSave
  filename = CD.filename
  numberinlist = lvwBoard.ListItems.Count
  If CD.filename <> "" Then
    Open filename For Random As #1 Len = Len(record(1))
      For row = 1 To numberinlist
        Put #1, , record(row)
      Next row
    Close #1
    row = row + 1
  End If
End Sub

Many Thanks,