Отобразить содержимое ячейки с учётом формата ячейки — Visual Basic(Бейсик)

iRangeText = ActiveCell.Text 
 
iRangeText = Cells(1).Text 
iRangeText = Range("A1").Text ' и т.д. 
Если существует вероятность, что ширина столбца может повлиять на корректность отображения данных, то в этом случае нужно :
code: #vba
With Range("A1") 
     If Not IsError(.Value) Then 
        MsgBox Application.Text(.Value, .NumberFormat) 
     Else 
        MsgBox "Ячейка содержит значение ошибки" 
     End If 
End With
В некоторых случаях результаты могут различаться.