VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "Form1"
   ClientHeight    =   3345
   ClientLeft      =   6330
   ClientTop       =   4935
   ClientWidth     =   3870
   LinkTopic       =   "Form1"
   ScaleHeight     =   3345
   ScaleWidth      =   3870
   Begin VB.CommandButton Command1 
      Caption         =   "Command1"
      Height          =   480
      Left            =   120
      TabIndex        =   1
      Top             =   2760
      Width           =   3615
   End
   Begin VB.TextBox Text1 
      Height          =   2535
      Left            =   120
      MultiLine       =   -1  'True
      TabIndex        =   0
      Top             =   135
      Width           =   3615
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub Form_Load()
    Text1.Text = "A 256 8" & vbCrLf & "B 512 14" & vbCrLf & "C 512 28" & vbCrLf & "D 1024 60"
End Sub

Private Sub Command1_Click()

    Dim straryTxtBoxText() As String
    Dim intLoopCounter As Integer
    Dim intPrevious1stNo As Integer
    Dim intPrevious2ndNo As Integer
    Dim intCurrent1stNo As Integer
    Dim intCurrent2ndNo As Integer
    Dim strHighestLine As String
    Dim strTrimedCurrentElement As String
    
    straryTxtBoxText = Split(Text1.Text, vbCrLf)
    
    For intLoopCounter = 0 To UBound(straryTxtBoxText)
    
        strTrimedCurrentElement = Trim(straryTxtBoxText(intLoopCounter))
        strTrimedCurrentElement = Mid(strTrimedCurrentElement, InStr(strTrimedCurrentElement, " ") + 1)
    
        intCurrent1stNo = CInt(Left(strTrimedCurrentElement, InStr(strTrimedCurrentElement, " ") - 1))
        intCurrent2ndNo = CInt(Right(strTrimedCurrentElement, InStrRev(strTrimedCurrentElement, " ") - 3))
    
        If (intCurrent1stNo > intPrevious1stNo) And (intCurrent2ndNo > intPrevious2ndNo) Then
            intPrevious1stNo = intCurrent1stNo
            intPrevious2ndNo = intCurrent2ndNo
            strHighestLine = Left(Trim(straryTxtBoxText(intLoopCounter)), 1)
        End If
    
    Next intLoopCounter

    MsgBox "The Highest Vlued Line is: " & strHighestLine

End Sub