With ListBox1.Items
    .Add(koord(1) & vbTab & "Sehr gut " & vbTab & vbTab & koord(1))
    .Add(koord(2) & vbTab & "gut " & vbTab & vbTab & koord(2))
    .Add(koord(10) & vbTab & "grottenschlecht " & vbTab & koord(10))
    .Add(koord(100) & vbTab & "Cy" & vbTab & vbTab & koord(100))
End With
 
'=================================================================
 
Private Function koord(ByVal Number As Integer) As String
     Dim num As String = CStr(Number)
     Dim add As Integer = (3 - num.Length) * 2
     If add > 0 Then num = StrDup(add, " "c) & num
     Return num
End Function