Excel Get A if B And C ...Loop

Sub EB2Excel2EB()

	Dim Excel, ExclWorkbook As Object

	
	Set Excel=GetObject("Excel.Applicaton")
	Set System=CreateObject("Extra.System")
	Set MySess=System.ActiveSession
	Set MyTerminal=MySess.Screen
	
	A=MyTeminal.GetString(01, 02, 03)
	b=MyTeminal.GetString(03, 02, 01)
	c=Inputbox("Cee")

    With Worksheets("Worksheet1")

       For x = 1 To ActiveSheet.Rows.Count

           If A = "" Then Exit Sub
        
           Do
        
               If C = "" Then
               
               Else
        
               End If
        
        
           Loop

       Next x

    End With

Sub Main

        Dim obj as object

        Dim objWorkbook as object
	
	Dim rw as LONG, FirstRow as long, LastRow as long

	Dim Fruit() As String, Name1() As String, NewFruit() As String

        Set obj=CreateObject("Excel.Application")

        Set obj = Getobject("C:\Temp\Snack.xls") 

	set objWorkbook=obj.Worksheets("Sheet2")

        ReDim Fruit(30)

        ReDim Name1(30)

        ReDim NewFruit(20) 

        CountA=3

        NewCnt=0

   	With objWorkbook
      		with .Range(.["A" + CountA], .["A" + CountA].End(xldown))
        		FirstRow = .row
        		Last Row = .rows.count + FirstRow - 1
      		end with
      		for rw = FirstRow to LastRow
        		Fruit(CountA)=Trim(objWorkBook.Range("A" + CountA))
        		Name1(CountA)=Trim(objWorkBook.Range("C" + CountA))
        		row = row + 1  
			If Fruit(CountA) <> Fruit(CountA-1) then

				Fruit(CountA)=NewFruit(NewCnt)

				NewCnt=NewCnt+1

			End if
			CountA=CountA+1
      		next
   	End With

NewFruit(y) = NewFruit(y) + CHR(9)

Name1(x) = Name1(x) & CHR(9)

    Begin Dialog dlgOptions 154, 11, 182, 188, "Third Language Action Dialog"

       OkButton  130, 6, 50, 14, .btnOK

       CancelButton  130, 23, 50, 14, .btnCancel

       Text  48, 37, 70, 10, "Fruits"

       DropComboBox  46, 112, 73, 40, NewFruit(CountA), .CB1

       Text  52, 100, 70, 10, "People"

       DropComboBox  49, 54, 73, 40, Name1(y), .CB2

    End Dialog

    Dim dlgVar as dlgOptions

    Dialog dlgVar

    If Error=102 then
	Stop
    End If

    msgbox Name1

End Sub