Mahlzeit,

alles eine Frage des (guten) Geschmacks und der Mühe

Sub Makro2()
'
' Makro2 Makro
'
' das ist eine Aufzeichnung !
'
    Range("A3").AddComment
    Range("A3").Comment.Visible = False
    Range("A3").Comment.Text Text:="Administrator:" & Chr(10) & "das ist " & Chr(10) & "Kommentar"
    Range("A3").Select
End Sub

Sub myComment()
SySerialNo1 = 128444
Systemname1 = "woswasiden"
SySerialNo2 = 555129
Systemname2 = "iwaswos"
Tabulator = "Tabulator"

With [A4]
  On Error Resume Next
  .Comment.Delete
  On Error GoTo 0
  .AddComment
  'selbstplaudernd könnt´ma auch zuvor eine Stringvariable basteln
  .Comment.Text Text:=CStr(SySerialNo1)
  .Comment.Text Text:=Chr(32), Start:=Len(.Comment.Text) + 1
  .Comment.Text Text:=Systemname1, Start:=Len(.Comment.Text) + 1
  .Comment.Text Text:=Chr(10), Start:=Len(.Comment.Text) + 1
  .Comment.Text Text:=CStr(SySerialNo2), Start:=Len(.Comment.Text) + 1
  .Comment.Text Text:=Chr(32), Start:=Len(.Comment.Text) + 1
  .Comment.Text Text:=Systemname2, Start:=Len(.Comment.Text) + 1
  
  'nur das Tabulator-Kennzeichen vbTab Chr(9) murkst
  '.Comment.Text Text:=Chr(9), Start:=Len(.Comment.Text) + 1
  '.Comment.Text Text:=Tabulator, Start:=Len(.Comment.Text) + 1
  
  With .Comment.Shape
    .Height = 60
    .Width = 160
    With .Fill
      .ForeColor.RGB = RGB(240, 240, 20)
      '.BackColor.RGB = RGB(155, 155, 100)
    End With
    .AutoShapeType = msoShapeParallelogram
    With .TextFrame.Characters  'bei nonprop-Schriften greift Format-Funktion eher
      With .Font
        .Name = "Courier New"
        .Size = 8
        .Bold = True
        .Color = RGB(0, 0, 255)
      End With
    'usw
    End With
    'usw
  End With
  
End With

End Sub

Guck auch http://www.vba-forum.de/forum/View.aspx?ziel=17117