Ti faccio un esempio io:
codice:
Private Sub Carica()
Dim Vettore(3) As Integer
Dim Bool As Boolean

Dim Cont As Integer
Dim Riga As String


Vettore(0) = 1
Vettore(1) = 2
Vettore(2) = 3
Vettore(3) = 4
Bool = True

Open "C:\File.txt" For Input As #1
  Do Until EOF(1)
    Line Input #1, Riga
    If Left(Riga, 7) = "Vettore" Then
      Vettore(Cont) = CInt(Right(Riga, 1))
      Cont = Cont + 1
    End If
  Loop
  If Left(Riga, 4) = "Bool" Then
    Bool = CBool(Replace(Riga, "Bool=", ""))
  End If
Close #1
End Sub

Private Sub Salva()
Dim Vettore(3) As Integer
Dim Bool As Boolean

Dim Cont As Integer


Vettore(0) = 1
Vettore(1) = 2
Vettore(2) = 3
Vettore(3) = 4
Bool = True

Open "C:\File.txt" For Output As #1
  For Cont = 0 To UBound(Vettore)
    Print #1, "Vettore(" & CStr(Cont) & ")=" & CStr(Vettore(Cont))
  Next Cont
  Print #1, "Bool=" & CStr(Bool)
Close #1
End Sub