Try as below code.
Dim oFile as System.IO.File
Dim oRead as System.IO.StreamReader
Dim fileText as String
Dim myText as String
oRead = oFile.OpenText("YourFilePath")
fileText = oRead.ReadToEnd()
myText = fileText.SubString(fileText.LastIndexOf(" ") + 1).Trim