например Trim(Cstr(ExcelWrks.Cells(1,1).Value))
А пример некорректных данных?
И попробуй без Trim-а.
Точки двойные?)If ExcelWrks.Cells(1,1)..Errors(1).Value Then
'Ошибка
Else
Trim(Cstr(ExcelWrks.Cells(1,1).Value))
End if
Взломай свой первый сервер и прокачай скилл — Начни игру на HackerLab