Dim format As String = "{0,-200}{1,5:####0}"
 
 For x As Integer = 0 To al.Count - 1 Step 2
            Dim str As String = Trim(al(x).ToString)
            Dim str1 As Integer = al(x + 1)
            ListBox2.Items.Add(String.Format(format, str, str1))
 Next

Evolution                                                7  
Planet der Afffen                                            5

Gruss Caddy