Collegarsi ad un altro file o no?????

Class TuaClasse

    Private tmOut1, tmOut2, tmOut3 As Integer

    Sub SaveOptions(ByVal outputPath As String)
        'Crea il file
        Dim fileStream As StreamWriter = File.CreateText(outputPath)
        'Scrive il nome di ogni variabile e il rispettivo valore
        fileStream.Write("Timeout1 = ")
        fileStream.WriteLine(tmOut1)

        fileStream.Write("Timeout2 = ")
        fileStream.WriteLine(tmOut2)

        fileStream.Write("Timeout3 = ")
        fileStream.WriteLine(tmOut3)

        'Chiude il file
        fileStream.Flush()
        fileStream.Close()
    End Sub

    Sub LoadOptions(ByVal optionFile As String)
        'Apre il file
        Dim fileStream As StreamReader = File.OpenText(optionFile)
        Try
            'Legge tutto il file scorrendo le opzioni
            Do Until fileStream.EndOfStream
                'Ottiene la parte a destra e a sinistra dell'uguale
                Dim line As String() = fileStream.ReadLine().Split( _
                    New String() {" = "}, StringSplitOptions.None)
                'Se la stringa non è ben formattata lancia l'errore
                If line.Length <> 2 Then
                    Throw New Exception()
                End If
                'Legge il nome della variabile e imposta il valore di conseguenza
                Select Case line(0)
                    Case "Timeout1"
                        Me.tmOut1 = Integer.Parse(line(1))
                    Case "Timeout2"
                        Me.tmOut2 = Integer.Parse(line(1))
                    Case "Timeout3"
                        Me.tmOut3 = Integer.Parse(line(1))
                    Case Else
                        Throw New Exception()
                End Select
            Loop
        Catch
            Throw New Exception("File di opzioni non valido")
        End Try
    End Sub

End Class

For each x as string in TuaStringa
   if IsNumeric(x) then
     'se entri qui vuol dire che x rappresenta un carattere numerico
     'magari puoi memorizzarlo in una stringa a parte
   enfd if
Next

'La stringa da dividere
Dim stringToSplit As String = "pippo=10"
'Le due parti in cui la stringa resta divisa dall'uguale
Dim parts As String() = stringToSplit.Split("=")
'Ottiene l'intero dalla seconda parte
Dim value As Integer = Integer.Parse(parts(1))