Private Sub CosTam()

'**************************************

Dim Excel As Object
Dim TextLen As Integer
Dim strInputens As String
Set Excel = GetObject(, "Excel.Application")

Dim ExcelSheet As Object
Set ExcelSheet = Excel.ActiveWorkbook.sheets("TEST")

Dim objLayers As AcadLayers 'potrzebne w kolejnej fazie
Dim objLayer As AcadLayer    'potrzebne w kolejnej fazie


CellRow = 10 'okresla zktorego rzedu startuje
'Do Until CellRow = 45 zasieg potrzebny w kolejnej fazie
strInputens = ExcelSheet.cells(1, 1).Value 'sprawdzenie czy mozna cos kombinowac z komorkami o co mi chodzilo
ExcelSheet.cells(2, 2).Value = strInputens

End Sub

Function PointsToString(rg As Range) As String
  Dim w As String
  Dim kom As Range

  For Each kom In rg
    w = w & CStr(kom.Value) & " "
  Next kom

  PointsToString = Left(w, Len(w) - 1)
End Function

Function CellsToString(rg As Range) As String
  'parametry zależne od wersji językowej
  Dim SepD As String    'separator części ułamkowj liczby
  Dim SepL As String    'separator elementów listy
  Dim SepS As String    'separator pary pynktów = spacja ???
  
  Dim w As String
  Dim kom As Range
  Dim f As Boolean      'flaga parzyste/nieparzyste

  SepD = Application.DecimalSeparator
  SepL = Application.International(xlListSeparator)
  SepS = " "

  For Each kom In rg
    w = w & CStr(kom.Value)
    f = Not f
    If f Then w = w & SepL Else w = w & SepS
  Next kom

  CellsToString = Replace(w, SepD, ".")
End Function