1번...지불방법이 AA로 시작하거나 BB로 시작하는 자료를 대상으로... 라는 부분을 다음과 같이 코딩했습니다.

지불방법 = Trim(Mid(버퍼, 57, 2))
                         
If 지불방법 = "AA" Or "BB" Then

   ===========>If 지불방법 = "AA" Or 지불방법 = "BB" Then 로 고칠것

2번
            ''''''''변수 저장
            예약수량 = Val(Mid(버퍼, 17, 5))
            지불금액 = Val(Mid(버퍼, 48, 10))
            예약금액 = Val(Mid(버퍼, 23, 10))
            일련번호 = Trim(Mid(버퍼, 1, 7))
           
            If 지불금액 >= 6500000 Then
                Num = Num + 1
                합계(Num) = 예약수량 * 예약금액
                결과값(Num) = 일련번호
              
                 ===========> 결과값(Num) = 이부분은 변수저장과 동일한 코딩을 할것
   
>>
Open "c:\c_it\data\ans42.txt" For Output As #2
    Print #2, 인수1, 인수2, 결과값(Num)

   ===========> 마지막결과값을 구할때는 이 코딩이 맞음

3번

Sub main()

>>

Dim 인수1, 인수2, K, 버퍼 As Variant
Dim 예약수량, 예약금액, P, temp, Num, 일련번호, 합계, 최소값 As Variant

      ===========> P, temp, Num, 합계는 삭제할것: 최소값구하는데 불필요한 변수임
        
            ''''''''변수 저장
            예약수량 = Val(Mid(버퍼, 17, 5))
            예약금액 = Val(Mid(버퍼, 23, 10))
            일련번호 = Val(Mid(버퍼, 7, 1))
           
            If 일련번호 Mod 2 = 1 Then
            
                합계 = 예약수량 * 예약금액
                If 최소값 > 합계 Then
                    최소값 = 합계
                End If
                   
            End If
        End If
     Next K
        
 ===========> 최소값구하는데 합계구하는 코딩이 왜 들어갑니까? 삭제하세요
  
 
Close #1

>>

''''''''출력파일처리
Open "c:\c_it\data\ans43.txt" For Output As #2
    Print #2, 인수1, 인수2, 합계
 
===========> 결국 최소값구하는 문제 아닌가요? 그렇다면 합계는 지우고 최소값을 입력할것.
Close #2

>>

End Sub