Public Function ExtractValue(ByVal sFile As String, ByVal sID As String) As _
  String
    On Error Resume Next
    Dim FF As Integer: FF = FreeFile
    Dim sBuf As String, sVal As String
    Dim i As Long
    Const ASCII = "AaBbCcDdFfGgHhIiJjKkLlMmNnOoPpQqRrSsTtUuVvWwXxYyZz"
 
    Open sFile For Binary As #FF
        sBuf = Space$(FileLen(sFile))
        Get #FF, , sBuf
    Close #FF
 
    i = InStr(1, sBuf, sID)
    If i > 0 Then
        i = i + Len(sID) + 1
        sVal = Mid$(sBuf, i)
        sBuf = vbNullString
        For i = 1 To Len(sVal)
            If InStr(i, ASCII, Mid$(sVal, i, 1)) > 0 Then
                ExtractValue = sBuf
                Exit Function
            Else
                If Len(sBuf) > 4 Then
                    If Mid$(sBuf, Len(sBuf) - 3, 1) = "+" Then
                        ExtractValue = sBuf
                        Exit Function
                    End If
                End If
                sBuf = sBuf & Mid$(sVal, i, 1)
            End If
        Next
    End If
 
    ExtractValue = sBuf
    Exit Function
End Function