Чтение текста из документа(выбрать строку, текст) - VB

Подскажите как сделать что бы программа читала определенную строку в тексте и только цифры. Например дано: 1900 #Date А мне нужно: 1900 После чего заменить число 1900 на 1800, и сохранить в этот же документ, что бы получилось так: 1800 #Date Вот я составил код, но он читает только первую строку и весь текст... Private Sub Command1_Click() Dim mo As Integer Dim s As String Open "C:\12345.txt" For Input As #1 Line Input #1, s MsgBox s Close #1 End Sub Помогите составить программу, наверняка кому то уже известно как это делать... (К примеру редакторы для игр, нужно только открыть файл и в текстовых полях изменить нужные числа) Заранее спасибо!