Dim ObjExc As Excel.Application
Set ObjExc = New Excel.Application
ObjExc.SheetsInNewWorkbook =  1 
ObjExc.Workbooks.Open (Text1.Text)
....

Dim ObjExc As Excel.Application
Dim con, strRead As String, strMon As String
Dim reg_num As String, iDate As Long, debet As Double, credit As Double
Dim cmd_line
cmd_line = GetCommandLine( 1 )
Set ObjExc = New Excel.Application
    
    ObjExc.SheetsInNewWorkbook =  1 
    ObjExc.Workbooks.Open cmd_line
...

Function GetCommandLine(Optional MaxArgs)
   Dim C, CmdLine, CmdLnLen, InArg, i, NumArgs
   If IsMissing(MaxArgs) Then MaxArgs =  10 
   ReDim ArgArray(MaxArgs)
   NumArgs =  0 : InArg = False
   CmdLine = Command()
   CmdLnLen = Len(CmdLine)
   For i =  1  To CmdLnLen
      C = Mid(CmdLine, i,  1 )
      If (C <> " " And C <> vbTab) Then
         If Not InArg Then
            If NumArgs = MaxArgs Then Exit For
            NumArgs = NumArgs +  1 
            InArg = True
         End If
         ArgArray(NumArgs) = ArgArray(NumArgs) & C
      Else
         InArg = False
      End If
   Next i
   ReDim Preserve ArgArray(NumArgs)
   GetCommandLine = ArgArray()
   
End Function

 cmd_line = GetCommandLine( 1 ) 

cmd_line = "www.gdfgdfgdgdg..."