Private Alphabet(26) As Variant        ' Die 26 steht für 27 Zeile also 
     ' 0-26

Private Sub Command1_Click()
    Alphabet(0) = "a" 'Zeile 1 ein a zuweisen
    Alphabet(1) = "b" 'Zeile 2 ein b zuweisen
End Sub

Private Sub Command2_Click()
    Dim i As Integer
    For i = 0 To 26
        Text1.Text = Alphabet(i)
        Text1.Text = ""
    Next
End Sub

Private Sub Command3_Click()
    Dim a1 As Integer
    Dim a2 As Integer
    For a1 = 0 To 26
        Text1.Text = Alphabet(a1)
        For a2 = 0 To 26
            Text1.Text = Text1.Text & Alphabet(a2)
        Next
        Text1.Text = ""
    Next
 
End Sub