How to get err.description for each error encountered during run in a simple way????

Code:
"Script starts"



'On error resume next

'

'SystemUtil.Run "C:\Program Files\HP\QuickTest Professional\samples\flight\app\flight4a.exe","","C:\Program Files\HP\QuickTest Professional\samples\flight\app\","open"

'Dialog("Login").WinEdit("Agent Name:").Set "praveen"

'If Err.Number <> 0 Then

'ErrorNumber1 =" Error # " & CStr(Err.Number)

'ErrorDescription1 = Err.Description

'Err.Clear ' Clear the error.

'Status1="Failed"

'Else

'Status1="Passed"

'End if

'Dialog("Login").WinEdit("Agent Name:").Type  micTab

'If Err.Number <> 0 Then

'ErrorNumber2 =" Error # " & CStr(Err.Number)

'ErrorDescription2 = Err.Description

'Err.Clear ' Clear the error..

'Status2="Failed"

'Else

'Status2="Passed"

'End if

'Dialog("Flight Reservations").WinButton("OK").Click

'If Err.Number <> 0 Then

'ErrorNumber3 =" Error # " & CStr(Err.Number)

'ErrorDescription3 = Err.Description

'Err.Clear ' Clear the error.

'Status3="Failed"

'Else

'Status3="Passed"

'End if

'Dialog("Login").WinEdit("Password:").SetSecure "4d2c2fce3ff74d5db0e8587410ed8700fa1b0f49"

'If Err.Number <> 0 Then

'ErrorNumber4=" Error # " & CStr(Err.Number)

'ErrorDescription4 = Err.Description

'Err.Clear ' Clear the error.

'Status4="Failed"

'Else

'Status4="Passed"

'End if

'return=Dialog("Login").WinButton("OK").Check (CheckPoint("OK"))

'msgbox (return)

'If Err.Number <> 0 Then

'ErrorNumber11 =" Error # " & CStr(Err.Number)

'ErrorDescription11 = Err.Description

'Err.Clear ' Clear the error.

'Status11="Failed"

'Else

'Status11="Passed"

'End if

'Dialog("Flight Reservations").WinButton("OK").Click

'If Err.Number <> 0 Then

'ErrorNumber5 =" Error # " & CStr(Err.Number)

'ErrorDescription5 = Err.Description

'Err.Clear ' Clear the error.

'Status5="Failed"

'Else

'Status5="Passed"

'End if

'Dialog("Login").WinEdit("Password:").SetSecure "4d2c2fcdb0e8587410ed8700fa1b0f49"

'If Err.Number <> 0 Then

'ErrorNumber6 =" Error # " & CStr(Err.Number)

'ErrorDescription6 = Err.Description

'Err.Clear ' Clear the error.

'Status6="Failed"

'Else

'Status6="Passed"

'End if

'Dialog("Login").WinEdit("Password:").Type  micReturn

'If Err.Number <> 0 Then

'ErrorNumber7 =" Error # " & CStr(Err.Number)

'ErrorDescription7 = Err.Description

'Err.Clear ' Clear the error.

'Status7="Failed"

'Else

'Status7="Passed"

'End if

'Dialog("Login").WinEdit("Password:").SetSecure "4d2c2fce3ff74d5db0e8587410ed8700fa1b0f49"

'If Err.Number <> 0 Then

'ErrorNumber8 =" Error # " & CStr(Err.Number)

'ErrorDescription8 = Err.Description

'Err.Clear ' Clear the error.

'Status8="Failed"

'Else

'Status8="Passed"

'End if

'Dialog("Login").WinEdit("Password:").Type  micReturn

'If Err.Number <> 0 Then

'ErrorNumber9 =" Error # " & CStr(Err.Number)

'ErrorDescription9 = Err.Description

'Err.Clear ' Clear the error.

'Status9="Failed"

'Else

'Status9="Passed"

'End if

'Window("Flight Reservation").Close

''err.raise 1033

'If Err.Number <> 0 Then

'ErrorNumber10 =" Error # " & CStr(Err.Number)

'ErrorDescription10 = Err.Description

'Err.Clear ' Clear the error.

'Status10="Failed"

'Else

'Status10="Passed"

'End If

'

'

'

'dDate=Now()

'sTablePath=Datatable.Value("Table_Path",dtGlobalsheet)

'

'Call WriteResults(sTablePath,dDate,Status1, ErrorNumber1,ErrorDescription1)

'Call WriteResults(sTablePath,dDate,Status2, ErrorNumber2,ErrorDescription2)

'Call WriteResults(sTablePath,dDate,Status3, ErrorNumber3,ErrorDescription3)

'Call WriteResults(sTablePath,dDate,Status4, ErrorNumber4,ErrorDescription4)

'Call WriteResults(sTablePath,dDate,Status5, ErrorNumber5,ErrorDescription5)

'Call WriteResults(sTablePath,dDate,Status6, ErrorNumber6,ErrorDescription6)

'Call WriteResults(sTablePath,dDate,Status7, ErrorNumber7,ErrorDescription7)

'Call WriteResults(sTablePath,dDate,Status8, ErrorNumber8,ErrorDescription8)

'Call WriteResults(sTablePath,dDate,Status9, ErrorNumber9,ErrorDescription9)

'Call WriteResults(sTablePath,dDate,Status10, ErrorNumber10,ErrorDescription10)

'Call WriteResults(sTablePath,dDate,Status11, ErrorNumber11,ErrorDescription11)

'

'Public Function WriteResults(sTablePath, dDate, sStatus, sErrorNumber, sErrorDescription)

'                           

'                    Datatable.AddSheet "dResults"               

'                 Datatable.ImportSheet sTablePath, "dResults","dResults"        

'                      iRowCount = Datatable.GetSheet("dResults").GetRowCount  

'                             Datatable.GetSheet("dResults").setCurrentRow(iRowCount+1)  

'                                iParamCount = Datatable.GetSheet("dResults").GetParameterCount  

'                                            If iParamCount = 0 Then 

'                                                           Datatable.GetSheet("dResults").AddParameter "Rec_Num",""    

'                                                             Datatable.GetSheet("dResults").AddParameter "Date_Time","" 

'                                                                        Datatable.GetSheet("dResults").AddParameter "Status",""        

'                                                                               Datatable.GetSheet("dResults").AddParameter "ErrorNumber",""

'                                                                                            Datatable.GetSheet("dResults").AddParameter "Description","" 

'            Datatable.ExportSheet "C:\Documents and Settings\prajee\Desktop\Log_Error.xls", "dResults"

'            End If

'                      Datatable("Rec_Num","dResults")=iRowCount+1

'                            Datatable("Date_Time","dResults") = dDate  

'                                Datatable("Status","dResults") = sStatus       

'                                    Datatable("ErrorNumber","dResults") = sErrorNumber    

'                                            Datatable("Description","dResults") = sErrorDescription       

'Datatable.ExportSheet "C:\Documents and Settings\prajee\Desktop\Log_Error.xls", "dResults"

'End Function