Sub MyComment()
Dim oRng As Range
Dim sComment As String
    sComment = InputBox("Type Comment", "Inline Comment")
    If sComment = "" Then Exit Sub
    Set oRng = Selection.Range
    With oRng
        .Collapse 0
        .Text = sComment
        .Font.Color = RGB(0, 153, 255)
        .Font.Name = "Universe Condensed Light"
        .Font.Size = 11
        .Collapse 0
        .Select
    End With
    Set oRng = Nothing
End Sub