Imports Microsoft.Office.Interop Module Module1 Sub Main() Dim app As Excel.Application = New Excel.Application() Dim wbk As Excel.Workbook = app.Workbooks.Add() Dim wst As Excel.Worksheet = DirectCast(wbk.Worksheets(1), Excel.Worksheet) Dim r1 As Excel.Range = wst.Range("A1") r1.Value = "100m3" r1.Characters(CStr(r1.Value).Length).Font.Superscript = True Dim r2 As Excel.Range = wst.Range("B1") r2.Value = "10min-1" r2.Characters(CStr(r2.Value).Length - 1).Font.Superscript = True app.Visible = True End Sub End Module