VBA Code Trouble - Need to return value after defined text from a text file

I have some code below:

Sub SystemInfoInput()
Dim myFile As String, text As String, textline As String, posLat As Integer, posLong As Integer
myFile = "C:\Temp\systeminfo.txt"
Open myFile For Input As #1
Do Until EOF(1)
Line Input #1, textline
text = text & textline
Loop
Close #1
TotMem = InStr(text, "Total Physical Memory")
SysMod = InStr(text, "System Model")
Range("D4").Value = Mid(text, TotMem + 27, 8)
Range("D5").Value = Mid(text, SysMod + 27, 19)
End Sub

I want it to return the value after Total Physical Memory: (currently have it above by using the characters but as this will be run on different machines these values will change and the character length not always correct).

At the moment i am trying to get it to return a few lines but i will want to return more than i currently have got.

Here is a snippet of the file it is opening:

OS Name: Microsoft Windows 7 Enterprise
OS Version: 6.1.7601 Service Pack 1 Build 7601
OS Manufacturer: Microsoft Corporation
OS Configuration: Member Workstation
OS Build Type: Multiprocessor Free
Registered Owner: Computer User
Original Install Date: 12/07/2016, 15:28:21
System Boot Time: 25/08/2017, 10:43:46
System Manufacturer: HP
System Model: HP EliteBook 850
System Type: X86-based PC
Processor(s): 1 Processor(s) Installed.
[01]: x64 Family 6 Model 78 Stepping 3 GenuineIntel ~2277 Mhz
BIOS Version: HP N75 Ver. 01.16, 08/06/2017
Windows Directory: C:\WINDOWS
System Directory: C:\WINDOWS\system32
Boot Device: \Device\HarddiskVolume1
System Locale: en-gb;English (United Kingdom)
Input Locale: en-gb;English (United Kingdom)
Time Zone: (UTC+00:00) Dublin, Edinburgh, Lisbon, London
Total Physical Memory: 3,185 MB

Any suggestions on how i can improve the code would be greatly appreciated!

See if this is how you wanted.

Please Login or Register  to view this content.

Thanks @Arkadi, that works a real treat!

Thanks for the info about the code rules, apologies first post will ensure i follow that going forward

Originally Posted by Arkadi

Perhaps this is better... by just making an array of the data strings you want to extract, you can then loop through the array:

Please Login or Register  to view this content.

So would i be right in thinking i would need to just add my additional info needs into the myInfo array? Like this?

Please Login or Register  to view this content.

Originally Posted by Arkadi

Yes that's right... that ought to do it

I thought so, but Excel doesn't like

I get Run time error 5 - Invalid procedure call or argument

When i hit debug it goes to:

Please Login or Register  to view this content.

Originally Posted by Arkadi

We have two options... build in some error checking, or you need to make sure the string will be found... in your 2 new strings, you have "Os", but the text file has a capital S for those values ("OS") which I presume is causing your error. This modification should eliminate the error, but will not return values either unless there is a perfect match:

Please Login or Register  to view this content.

Genius, and can't believe i didn't notice the lower s

Works just as needed!