Where is the compile error?
One thing, though. Your declares need to be redone. You haveFor objects, you have one: Ongl_3 - all the rest are variantsCode:Dim Ongl_1, Ongl_2, Ongl_3 As Object Dim Message0, AFile, AExten, CExten, String_1, String_2, String_3, String_4, RawLine, RawDate, RawLabel, RawUnit, RawData, ConvertLine, ConvertDate, ConvertLabel, ConvertUnit, ConvertData, ConvertData_0 As String Dim Line_1, Line_1_0, Line_1_1, Line_2, Line_2_0, Line_2_1, e_0, e_1, er, e As Integer Dim F0_Unit, F1_Unit As Double
For strings, you have one: ConvertData_0 - all the rest are variants
For integers, you have one: e - all the rest are variants
To property declared these, As Type MUST follow each one. In other wordsThe same is true for all your strings and integers as well.Code:Dim Ongl_1 As Object, Ongl_2 As Object, Ongl_3 As Object




Reply With Quote