Private Sub Command1_Click()
    Dim Texto       As String
    Dim Separado()  As String  'Array para separar el texto en lineas
    Dim foo         As Integer
    Dim i           As Integer
    
    foo = FreeFile
    
    Open "C:\archivo.txt" For Input As #foo  'Abrimos el archivo en modo lectura
        Texto = Input(LOF(foo), #foo)     'Obtenemos el contenido del archivo
    Close #foo
    Separado = Split(Texto, vbCrLf)    'Metemos en el Array el contenido del archivo separado por líneas
    
    'Cambiamos la línea que quieras, en este caso la segunda línea    
    If UBound(Separado) > 2 Then    'Miramos si la segunda línea existe
        Separado(2) = "Cambiado"     'Substituímos
    End If
    
    'Guardamos todo el contenido nuevo en el archivo
    Open "C:\archivo.txt" For Output As #foo
        For i = 0 To UBound(Separado)
            Print #foo, Separado(i)
        Next i
    Close #foo
    
End Sub

Private Sub Command1_Click()
    If UBound(Separado) > 2 Then    'Podemos poner también UBound(Separado) >= 1
        MsgBox UBound(Separado)
        Separado(1) = "Cambiado"     'El índice de la matriz es 1 para la 2ª línea
    End If